By Singaravelan - 9/15/2004
Dear Matt,
I tried use .SelLength to highlight the record, but unfortunetely i can make it.Can you help me to edit my code. Please.
Private Sub cmdNext_Click() If Not Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MovePrevious End If End If
End Sub
Private Sub Titles()
Dim startrow As Integer Dim ColCount As Integer
emp.ActiveConnection = ConnectionString
With emp .CursorType = adOpenDynamic .CursorLocation = adUseClient .LockType = adLockOptimistic End With
emp.Open "Select * from Employee" emp.MoveFirst
MSFlexGrid1.Rows = emp.RecordCount + 1
MSFlexGrid1.Row = 0
MSFlexGrid1.Col = 0 MSFlexGrid1.Text = "ID" MSFlexGrid1.Col = 1 MSFlexGrid1.Text = "NAME" MSFlexGrid1.Col = 2 MSFlexGrid1.Text = "WET WEIGHT" MSFlexGrid1.Col = 3 MSFlexGrid1.Text = "WET DRC" MSFlexGrid1.Col = 4 MSFlexGrid1.Text = "DRY WEIGHT" MSFlexGrid1.Col = 5 MSFlexGrid1.Text = "SCRAP"
With emp .MoveFirst
For startrow = 1 To emp.RecordCount For ColCount = 0 To 1 If ColCount = 0 Then MSFlexGrid1.Row = startrow MSFlexGrid1.Col = ColCount MSFlexGrid1.Text = emp.Fields("EmpId").Value Else MSFlexGrid1.Row = startrow MSFlexGrid1.Col = ColCount MSFlexGrid1.Text = emp.Fields("EmpName").Value End If Next ColCount emp.MoveNext Next startrow
emp.MoveFirst emp.Close End With End Sub
Public Sub Fills()
Dim startrow As Integer Dim startcol As Integer
rubber.ActiveConnection = ConnectionString
With rubber .CursorType = adOpenDynamic .CursorLocation = adUseClient .LockType = adLockOptimistic End With
rubber.Open "Select * from Daily_Rubber_Crop"
rubber.MoveFirst
For startrow = 1 To rubber.RecordCount For startcol = 2 To 5 If Not rubber.EOF Then If startcol = 2 Then MSFlexGrid1.Row = startrow MSFlexGrid1.Col = startcol MSFlexGrid1.Text = rubber.Fields("Wet_Weight").Value
ElseIf startcol = 3 Then MSFlexGrid1.Row = startrow MSFlexGrid1.Col = startcol MSFlexGrid1.Text = rubber.Fields("Wet_Drc").Value ElseIf startcol = 4 Then MSFlexGrid1.Row = startrow MSFlexGrid1.Col = startcol MSFlexGrid1.Text = rubber.Fields("Dry_Weight").Value ElseIf startcol = 5 Then MSFlexGrid1.Row = startrow MSFlexGrid1.Col = startcol MSFlexGrid1.Text = rubber.Fields("Scrap").Value End If End If Next startcol rubber.MoveNext Next startrow
rubber.MoveFirst rubber.Close
End Sub
|
By jamunadevi - 7/1/2013
i want a code to highlight a search word in mshflexgrid.. i have code for search i just want to know how to highlight that search word in mshflexgrid using vb6.0.. pls help me guys
|
|