以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求筛选代码合并？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83826)
--  作者：zsslly
--  发布时间：2016/4/18 10:36:00
--  求筛选代码合并？
我有一个窗口，afterlaod代码设：Tables("设计部_Table1").Filter =  "责任人 = \'施工周\' or 责任人 = \'立面周\'"

窗口中有一个combobox1控件，内容为小区地址，设一个查询button，查询代码为：
Dim sjsD As WinForm.comboBox = e.Form.Controls("combobox1")
Tables("设计部_table1").Filter= "小区地址 = \'" & sjsD.text & "\'"

这样是我想要的结果，但由于实际操作原因，我设了窗口打后aterload中的代码为：Tables("设计部_table1").FIlter="False"
这样button控件就查询不到结果，所以应该将二个代码合并到button控件中，

我把代码作了如下修改：
Tables("设计部_Table1").Filter =  "责任人 = \'施工周\' or 责任人 = \'立面周\'"
Dim sjsD As WinForm.comboBox = e.Form.Controls("combobox1")
Tables("设计部_table1").Filter= "(" & Tables("设计部_table1").Filter & ") and " & "小区地址 = \'" & sjsD.text & "\'"

但这样没有反应，不知道错在那里？求老师指点？
--  作者：大红袍
--  发布时间：2016/4/18 11:08:00
--  
Dim sjsD As WinForm.comboBox = e.Form.Controls("combobox1")
Tables("设计部_table1").Filter= "(责任人= \'施工周\' or 责任人 = \'立面周\') and " & "小区地址 = \'" & sjsD.text & "\'"
[此贴子已经被作者于2016/4/18 11:08:02编辑过]