以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]组合过滤加载  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91736)

--  作者：zswushi --  发布时间：2016/10/18 8:23:00 --  [求助]组合过滤加载 狐爸： 您好！ 我换了一种思路 写昨天的代码 ，代码换成了下边的 ，现在 第一个文本框输入过滤加载正常， 第二个文本框 不输入内容时，就是执行第一文本框的代码也正常，若输入第二个文本框内容时 ，加载内容就变成了 空白， 请纠正下代码，谢谢 ！ Dim filter1 As String Dim txt1 As String = e.Form.Controls("TextBox1").text If txt1 = ""     filter1 = "" Else     txt1 = "%" & txt1 & "%"     Dim name1 As String     Dim dr1 As DataRow = DataTables("数据位置").find("[表名] = \'货品管理\' and [控件名] = \'默认列1\'")     If dr1 IsNot Nothing Then         name1 = dr1("信息跟踪")         filter1 = name1 & " like \'" & txt1 & "\'"     End If End If DataTables("货品管理").LoadFilter = Filter1 DataTables("货品管理").Load() Dim filter2 As String Dim txt2 As String = e.Form.Controls("TextBox2").text If txt2 = ""     filter2 = filter1 Else     txt2 = "%" & txt2 & "%"     Dim name2 As String     Dim dr2 As DataRow = DataTables("数据位置").find("[表名] = \'货品管理\' and [控件名] = \'默认列1\'")     If dr2 IsNot Nothing Then         name2 = dr2("信息跟踪")         filter2 = name2 & " Like \'" & txt2 & "\'"     End If     filter2 = filter2 & " And " & filter1  End If DataTables("货品管理").LoadFilter = Filter2 DataTables("货品管理").Load()  尤其是 合成  filter2 = filter2 & " and " & filter1  这句， 谢谢狐爸！

--  作者：zswushi --  发布时间：2016/10/18 8:27:00 --   狐爸：  您好 ，刚刚发的这个代码 在 定义 DR2 变量时   那个 默认列1 改成 默认列2 ，即可正常执行啦，搞了几天时间，终于达到预期啦，真是  谢谢！！