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
|
|