以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  筛选字符中 含有 # 符号 提示缺少操作数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=149549)

--  作者：873773115 --  发布时间：2020/5/6 9:41:00 --  筛选字符中 含有 # 符号 提示缺少操作数 此主题相关图片如下：ug%$)0j$}sg}iwcb`)s@8.png 如果  仅两个条件就不会报错  比如   Dim Filter As String Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行 If e.Node.name <> "显示所有"  Then     Select Case e.Node.Level         Case 0             Filter = "[车间] = \'" & dr("车间") & "\'"         Case 1             Filter = "[车间] = \'" & dr("车间") & "\' And [班别] = \'" & dr("班别") & "\'"     End Select End If 三个条件就报错，加替换符也没用 Dim Filter As String Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行 If e.Node.name <> "显示所有"  Then     Select Case e.Node.Level         Case 0             Filter = "[日期] = \'" & dr("日期") & "\'"         Case 1             Filter = "[日期] = \'" & dr("日期") & "\' And [班别] = \'" & dr("班别") & "\'"         Case 2             Filter = "[日期] = \'" & dr("日期") & "\' and [车间] = \'" & dr("车间") & " And [班别] = \'" & dr("班别") & "\'"     End Select End If filter = filter.Replace("#","[#]") 此主题相关图片如下：5v7$d$nwj`w}{~ib3okmn.png MessageBox.Show(filter) tb.Filter = Filter

--  作者：873773115 --  发布时间：2020/5/6 9:46:00 --   看到了  掉了一个字符  ，打扰了 老师们

--  作者：有点蓝 --  发布时间：2020/5/6 9:47:00 --   和#号没有任何关系，少了个单引号 Filter = "[日期] = \'" & dr("日期") & "\' and [车间] = \'" & dr("车间") & "\' And [班别] = \'" & dr("班别") & "\'"