Dim cb As String = e.Form.Controls("ComboBox1").value
Dim txt As String = e.Form.Controls("TextBox1").value
If cb Is Nothing Or txt Is Nothing Then
MessageBox.Show("请输入查询类别或姓名")
Else
With Tables(cb)
Dim r As Integer
r = .Find(txt, 0, 0, False, False, True)
If r > - 1 Then '如果找到符合条件的行
.Position = r '则选择该行
End If
End With
End If
Dim rgd As WinForm.RecordGrid = Forms("查询").Controls("RecordGrid1")
rgd.Table = Tables(cb)
rgd.Build()
Forms("查询").open()