我有一个窗口，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 & "'"
但这样没有反应，不知道错在那里？求老师指点？
加好友 
发短信
Post By：2016/4/18 10:36:00 [只看该作者]
