主题：[求助] 多条件筛选无法实现

Dim str As String = "1=2"
For i As Integer = 1 To 48
    str &= " or 电话号码" & i & " like '%" & 内容 & "%'"
Next
msgbox(str)
filter &= " and (" & str & ")"

我在【内容】控件的 Enter 中写有以下命令，当我第一次的【条件】不是【电话号码】时；点击【内容】控件中可以看到有内容；第二次【条件】选择【电话号码】时、再点击【内容】会发现【内容】中看到的还是第一次看到的内容；而我要的是没有内容；我的命令该怎么写？

 

If e.Form.Controls("条件").text <> "电话号码" Then
    e.Sender.ComboList = CurrentTable.DataTable.GetComboListString(e.Form.Controls("条件").text)

Else

 点击【内容】控件时不显示任何内容

End If

 e.Sender.ComboList = CurrentTable.DataTable.GetComboListString(e.Form.Controls("条件").text, "你要控制的条件写在这里啊")

此主题相关图片如下：360截图20170209141831957.jpg

保存按钮执行

 

Tables("表a").Filter = Tables("表a").Filter

 

如果筛选想增加一个【工单号】等于空；这样可以避免只有一行数据时、修改后表格就没有内容啦。以下命令该怎么修改？

 

Tables("装机工单表").Filter = Tables("装机工单表").Filter  Or " [工单号] Is Null "

 

Tables("装机工单表").Filter = Tables("装机工单表").Filter & " Or [工单号] Is Null "

 

 

想要实现筛选出表中 新增 或者 被修改 的行的筛选命令；该怎么写？

 

Tables("装机工单清单表").Filter = " 筛选出当前表中全部新增的行 "

 

 

Tables("装机工单清单表").Filter = " 筛选出当前表中全部被修改的行 "

参考

 

http://www.foxtable.com/webhelp/scr/0450.htm

 

http://www.foxtable.com/webhelp/scr/0112.htm

 

多条件筛选数据、多条件加载数据、多条件排序 的按钮命令该怎么写？