以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  合并二个筛选的代码问题？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83789)
--  作者：zsslly
--  发布时间：2016/4/16 23:56:00
--  合并二个筛选的代码问题？
我的窗口打开时afterload中代码为：Tables("收据管理总表_Table1").Filter =  "操作性 = \'签单\' or 平面定金 = \'定金\' or 平面定金 = \'定金(已退)\' or 立面定金= \'定金\'"

窗口中有一个combobox控件，查询代码为：
Dim sjsD As WinForm.DropDownBox = e.Form.Controls("DropBox1")
Tables("收据管理总表_table1").Filter= "小区地址 = \'" & sjsD.text & "\'"

combobox查询的结果不是我想要的结果，我想要在窗口打开加载的数据中找，我想这应该是把两个代码合并吧，如下合并不可以，
合并代码：Tables("收据管理总表_table1").Filter= "操作性 = \'签单\' or 平面定金 = \'定金\' or 平面定金 = \'定金(已退)\' or 立面定金= \'定金\' and 小区地址 = \'" & sjsD.text & "\'"

求助？应该怎么改？
--  作者：zsslly
--  发布时间：2016/4/17 9:07:00
--  
今天有没有大侠指点下！
--  作者：zsslly
--  发布时间：2016/4/17 10:24:00
--  
找到一个类似的：

Dim r As Row =Tables("产品入库_Table1").addnew
r("产品名称")="特级初榨橄榄油"
r("入库时间")=Date.today
r("制单人")=user.name
Dim Filter As String
Dim s  As Row =Tables("产品入库_table1").Current
Dim v As String= s("制单编号")
Tables("产品入库_table1").Filter = "制单编号 = \'" & v & "\'"
--  作者：zsslly
--  发布时间：2016/4/17 10:37:00
--  
看到很早以前Bin老师的一个代码：tables("X").Filter= "(" & tables("X").Filter & ") and " & "你的新筛选条件"
感谢Bin老师！