以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于自定义录入界面的取数问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177457)
--  作者：wudishaoshuai
--  发布时间：2022/5/23 12:17:00
--  关于自定义录入界面的取数问题

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里面的内容，因为我的表做了分页，请教一下我该怎么修改，能查到对应的全部内容
--  作者：有点蓝
--  发布时间：2022/5/23 13:32:00
--  
Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("窗口1_Table1")
dim s as string
If txt = "" Then
    s = ""
Else
    txt = "\'%" & txt & "%\'"
    s = "客户ID Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
End If
datatables("窗口1_Table1").loadfilter = s
datatables("窗口1_Table1").loadpage = 0
datatables("窗口1_Table1").load
e.Form.DropDownBox.Select()