2、将窗口的DropDownOpened事件代码设置为:
Dim txt As
String = e.Form.DropDownBox.Text
Dim tbl As
Table = Tables("窗口1_Table1")
If txt = "" Then
tbl.Filter = ""
Else
txt = "'%" & txt & "%'"
tbl.Filter = "客户ID Like " & txt & " Or 公司名称 Like " & txt &
" Or 地址 Like " & txt
& " Or 联系人 Like "
& txt
End
If
e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框
这样下拉窗口显示后,会自动根据下拉列表框的内容,筛选出可能的客户,并将输入焦点返回到下拉列表框。
按照如上只能找到table里面的内容,因为我的表做了分页,请教一下我该怎么修改,能查到对应的全部内容