Dim filter As String
Dim txt As String = e.Form.Controls("TextBox1").text
If txt = ""
filter = ""
Else
txt = "%" & txt & "%"
Dim name As String
Dim dr As DataRow = DataTables("数据位置").find("[表名] = '客户管理' and [控件名] = '默认列名'")
If dr IsNot Nothing Then
name = dr("信息跟踪")
End If
filter ="name Like '" & txt & "'"
End If
DataTables("货品管理").LoadFilter = Filter
DataTables("货品管理").Load()
这段代码中 filter = "name like ‘“” & txt & "'" 中的name 执行不了呀， 老是提示 列名无效 ，谢谢
加好友 
发短信
Post By：2016/10/16 15:18:00 [只看该作者]
