以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  有劳解析  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=90223)

--  作者:hbhb
--  发布时间:2016/9/7 22:42:00
--  有劳解析
大师:红色部分的代码为何不对?为什么? 有的为什么这样写正确?
Dim comb1 As WinForm.ComboBox = e.Form.Controls("ComboBox31")
Dim comb2 As WinForm.ComboBox = e.Form.Controls("ComboBox2")
Dim tb3 As WinForm.Table = e.Form.Controls("Table3")
\'tb3.Table.Filter = "dtwlmxb2 = \'" & comb1.Value & "--" & comb2.Value & "\'"  Or "dtwlmxb2 = \'" & comb2.Value & "--" & comb1.Value & "\'"

tb3.Table.Filter = "dtwlmxb2 = \'" & comb1.Value & "--" & comb2.Value & "\' Or dtwlmxb2 = \'" & comb2.Value & "--" & comb1.Value & "\'"

--  作者:hbhb
--  发布时间:2016/9/7 22:44:00
--  
自己搞错了,不好意思!
--  作者:有点蓝
--  发布时间:2016/9/7 22:48:00
--  
红色最终结果等同于下面2种
Tables("表A").Filter = true
Tables("表A").Filter = False

属于代码条件,而不是表达式条件