一个组合框,用于选 表名 一个文本框,用于输入查找姓名,一个按钮用于查找并找开 记录窗口,同时显示查找 到的数据
我的代码:
Dim cb As String = e.Form.Controls("ComboBox1").value
Dim txt As String = e.Form.Controls("TextBox1").value
Dim dt As Table
dt.Name = "cb"
If cb Is Nothing Or txt Is Nothing Then
MessageBox.Show("请输入查询类别或姓名")
Else
With dt("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 = dt("cb")
rgd.Build()
Forms("查询").open()