以文本方式查看主题

-  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=135405)

--  作者:lfz123
--  发布时间:2019/5/25 17:20:00
--  筛选
我在下拉窗口的afterload中写了如下代码:
\'申请单号是更新的,但是筛选条件却只显示一次正确的结果,切换到下一张还是显示第一次的结果,不会更新\'
我是在申请单录入窗口中打开专票录入的下拉窗口
Dim t As Table = Tables("专票录入_Table1")
If forms("申请单录入").opened() Then
    Dim str As String = Forms("申请单录入").Controls("tb申请单号").value
    MessageBox.Show(str) 
    If str Is Nothing Then
        t.Filter = "False"
    Else
        t.Filter = "申请单号 = \'"& str & "\'"
    End If    
End If
[此贴子已经被作者于2019/5/25 17:23:33编辑过]

--  作者:有点蓝
--  发布时间:2019/5/25 17:28:00
--  
代码放到下拉窗口DropDownOpening事件