以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  窗口中textbox值和列逻辑在副本表中同时筛选  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107224)

--  作者：Rhonin --  发布时间：2017/9/23 18:10:00 --  窗口中textbox值和列逻辑在副本表中同时筛选 Dim Filter As String With e.Form.Controls("TextBox1")     If .Value IsNot Nothing Then         If Filter > "" Then            Filter = Filter & " And "         End If         Filter ="BILLND = \'" & .Value & "\'"     End If End With With e.Form.Controls("ComboBox1")    If .Value IsNot Nothing Then      If Filter > "" Then           End If          Filter =Filter &  "JSCODE = \'" & .Value & "\'"      End If End With If Filter > "" Then        Tables("一级审核_Table1").Filter = Filter & tables（"一级审核_table1"）.Current（“一级审核”）=false  ‘就这段的问题 End If 系统会提示  从字符串“JSCODE = \'412\'False”到类型“Boolean”的转换无效。 如果改成  Tables("一级审核_Table1").Filter = Filter &  “ [一级审核] = false ”  的话，则提示[一级审核]后面缺少操作数 求解 [此贴子已经被作者于2017/9/23 18:28:34编辑过]

--  作者：有点甜 --  发布时间：2017/9/24 23:40:00 --   Tables("一级审核_Table1").Filter = Filter & " and 一级审核 = false"