以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  做入库单时，输入明细部分，下拉框做筛选后显示出来，怎么做？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=62003)
--  作者：有点甜
--  发布时间：2014/12/23 21:28:00
--  

 这个意思？

 

http://www.foxtable.com/help/topics/2466.htm

 
--  作者：有点甜
--  发布时间：2014/12/23 21:32:00
--  

 2楼的，就是根据你输入的筛选的，如果要过滤掉符合条件的，只需要合成筛选条件即可。
--  作者：有点甜
--  发布时间：2014/12/23 21:37:00
--  
 

4、将Table控件的KeyDown事件代码设置为：

If e.KeyCode = Keys.Enter Then
    Forms("窗口1").DropDownBox.CloseDropdown()
End If

这样在下拉窗口

 

 

----------------------

 

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() \'将输入焦点返回下拉列表框
--  作者：有点甜
--  发布时间：2014/12/23 21:41:00
--  

 就是设置筛选就行，比如

 

Tables("表A").Filter = "库存 > 0"
--  作者：有点甜
--  发布时间：2014/12/23 21:46:00
--  
 回复9楼，看帮助文档，很清晰了啊。
--  作者：有点甜
--  发布时间：2014/12/23 22:22:00
--  
 例子发上来。