以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  下拉列表启动输入助手后不能实现任意字符查找?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=64857)

--  作者:wh420
--  发布时间:2015/3/3 17:39:00
--  下拉列表启动输入助手后不能实现任意字符查找?
下拉列表启动输入助手后,只能支持首个单字的模糊查找,不能实现任意字符查找?如:北京市,查“北”能查到,查“京”字就查不到了。
--  作者:Bin
--  发布时间:2015/3/3 17:41:00
--  
是的,除非自己设计 参考 http://www.foxtable.com/help/topics/2465.htm
--  作者:wh420
--  发布时间:2015/3/3 19:05:00
--  

好吧,也只能这样了。谢谢老师指点


--  作者:wh420
--  发布时间:2015/3/3 21:46:00
--  

帮助中是针对已加载数据的,如何改成SQL后台数据?

 

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()


--  作者:有点甜
--  发布时间:2015/3/3 21:48:00
--  
Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("窗口1_Table1")
Dim filter As String
If txt = "" Then
    Filter = ""
Else
    txt = "\'%" & txt & "%\'"
    Filter = "客户ID Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
End If
tbl.DataTable.LoadFilter = filter
tbl.DataTable.Load
e.Form.DropDownBox.Select()

--  作者:wh420
--  发布时间:2015/3/4 11:59:00
--  
TO 有点甜,问题已经解决。不过这个方法不太理想,多问一句能否变向实现让其还是以下拉列表的形式显示,还能支持任意字符的模糊查找呢?
--  作者:有点甜
--  发布时间:2015/3/4 12:01:00
--  
 不行,必须用下拉窗口,你觉得不理想是什么意思?
--  作者:wh420
--  发布时间:2015/3/4 12:14:00
--  
呵,就是不太美观,我只需要显示“公司名称”一列的内容,还要弹出一个窗口,感觉有点大才小用。其他的没什么
--  作者:wh420
--  发布时间:2015/3/4 12:23:00
--  
这样吧,弹出的窗口如何让表头(即列标题)不显示?因为只有一列
--  作者:有点甜
--  发布时间:2015/3/4 12:28:00
--  
以下是引用wh420在2015/3/4 12:23:00的发言:
这样吧,弹出的窗口如何让表头(即列标题)不显示?因为只有一列

 

Tables("表A").Grid.Rows(0).Height = 0

 

你也可以不用表控件,直接用一个ListBox控件也行啊。