以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问下自定义录入界面之四的下拉窗口，能模糊筛选远程数据吗  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98197)
--  作者：99473593
--  发布时间：2017/3/25 21:36:00
--  请问下自定义录入界面之四的下拉窗口，能模糊筛选远程数据吗

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() \'将输入焦点返回下拉列表框
--  作者：有点色
--  发布时间：2017/3/26 11:04:00
--  

把你远程数据先加载出来，在筛选不行？

 

如果要动态加载，就把Filter改成LoadFilter

 

Dim txt As String \'= e.Form.DropDownBox.Text
Dim tbl As Table = Tables("窗口1_Table1")
If txt = "" Then
    tbl.DataTable.LoadFilter = ""
Else
    txt = "\'%" & txt & "%\'"
    tbl.DataTable.LoadFilter = "客户ID Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
End If
tbl.DataTable.load
e.Form.DropDownBox.Select() \'将输入焦点返回下拉列表框