很基础的知识。如果代码完全看不懂,先花几天时间重头看一遍编程基础吧。
左上角的表没有效果,因为代码里没有对这个表进行处理,自己参考其它表的用法处理
如果要对单个字符进行模糊查询,改一下用法即可
Dim s As String = e.Form.Controls("输入框").Text '获取输入框的内容放入变量
If s > "" Then '输入框有输入内容则设置条件
Tables("HdDbProductEntity").filter = "Info='" & s & "'" '合并查询条件:http://www.foxtable.com/webhelp/topics/1284.htm
Dim filter As String = "1=2 " '定义模糊查询的条件变量
For Each c As Char In s '遍历每个字符,合成条件
filter = filter & " or Series like '%" & c & "%'"
Next
Tables("HdDbProfileEntity").filter = filter
Tables("HdDbCombinationEntity").filter = filter
Else '否则去掉条件
Tables("HdDbProductEntity").filter = ""
Tables("HdDbProfileEntity").filter = ""
Tables("HdDbCombinationEntity").filter = ""
End If