Ye lijye,
ye code sirf first column mein search karay ga tamam rows ko, kionke [MSFlexGrid1.TextMatrix(r, 0)] per zero likha he, agar aap ke customer ka column number 5 he to aap 0 ki jaga 5-1 likhain.
Code:
Private Sub Command1_Click()
Dim target_name As String
Dim r As Integer
' Get the name.
target_name = InputBox("Name", "Name", "")
If Len(target_name) = 0 Then Exit Sub
' Search for the name, skipping the column heading row.
target_name = LCase$(target_name)
For r = 1 To MSFlexGrid1.Rows - 1
If LCase$(MSFlexGrid1.TextMatrix(r, 0)) = _
target_name Then
' We found the target. Select this row.
MSFlexGrid1.Row = r
MSFlexGrid1.RowSel = r
MSFlexGrid1.Col = 0
MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1
' Make the row visible.
MSFlexGrid1.TopRow = r
Exit Sub
End If
Next r
' We didn't find it.
Beep
End Sub
Bookmarks