按您的要求改了，完整的代码 是下边的，但现在执行的结果 是全部加载数据呀 跟 filter = "" ,是一样的结果
Dim name1 As String
Dim name2 As String
Dim filter1 As String
Dim filter2 As String
Dim txt1 As String = e.Form.Controls("TextBox1").text
Dim txt2 As String = e.Form.Controls("TextBox2").text
If txt1 = "%" & txt1 & "%"
Dim dr1 As DataRow = DataTables("数据位置").find("[表名] = '货品管理' and [控件名] = '默认列1'")
If dr1 IsNot Nothing Then
name1 = dr1("信息跟踪")
End If
filter1 =name1 & "like '" & txt1 & "'"
ElseIf txt2 = "%" & txt2 & "%"
Dim dr2 As DataRow = DataTables("数据位置").find("[表名] = '货品管理' and [控件名] = '默认列2'")
If dr2 IsNot Nothing Then
name2 = dr2("信息跟踪")
End If
filter2 = name2 & " Like '" & txt2 & "'"
End If
Dim filter As String
If filter1 > "" AndAlso filter2 > "" Then
filter = filter1 & " And " & filter2
ElseIf filter1 > "" Then
filter = filter1
Else
filter = filter2
End If
DataTables("货品管理").LoadFilter = filter
DataTables("货品管理").Load()
这些代码，真的很难搞，谢谢
加好友 
发短信
Post By：2016/10/17 16:48:00 [显示全部帖子]
