用recordset和datagrid的话 你可以用 set datagrid.recordsource=recordset 这样datagrid就会显示你查找的结果
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的,你可以参考一下。
你可以用
set datagrid.recordsource=recordset
这样datagrid就会显示你查找的结果
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的,你可以参考一下。