For i = 1 To gridVip.Rows - 1
If Trim(txtName.Text) = Trim(gridVip.TextMatrix(i, 0)) Then
gridVip.HighLight = flexHighlightAlways
gridVip.Row = i
gridVip.Col = 0
gridVip.TopRow = i
Call ShowAgent
Exit Sub
End If
If i = gridVip.Rows - 1 Then
MsgBox " 查无些人! " & vbCrLf & vbCrLf & " 请确认后再输 ", 48, msgTitle
txtName.SetFocus
Exit Sub
End If
Next i
==================
上面这段代码是用MSHFLEXGRID的,你可以参考一下。