[浏览完整版]
标题：如何实现附件截图的这种查询，谢谢
1楼
雨中的泪 发表于：2009/9/4 11:19:00如何实现附件截图的这种查询，谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:截图.rar |
2楼
雨中的泪 发表于：2009/9/4 14:24:00版主帮帮忙！！！谢谢
3楼
blackzhu 发表于：2009/9/4 14:35:00with e.Form
Dim dst As Table = Tables("某表")
Dim txb1 As WinForm.TextBox = .Controls("TextBox1")
Tables("窗口1_Table1").Filter = "[列名1] Like '*" & txb1.text & "*' or [列名2] Like '*" txb1.text & "*'"
end if
end with
在窗口中插入一个table控件，绑定表，设定为副本。插入一个文本框（textbox),在文本框的文本改变事件中加入上面的代码，就可以了。
Dim dst As Table = Tables("某表")
Dim txb1 As WinForm.TextBox = .Controls("TextBox1")
Tables("窗口1_Table1").Filter = "[列名1] Like '*" & txb1.text & "*' or [列名2] Like '*" txb1.text & "*'"
end if
end with
在窗口中插入一个table控件，绑定表，设定为副本。插入一个文本框（textbox),在文本框的文本改变事件中加入上面的代码，就可以了。
4楼
雨中的泪 发表于：2009/9/7 10:20:00with e.Form
Dim dst As Table = Tables("某表")
Dim txb1 As WinForm.TextBox = .Controls("TextBox1")
Tables("窗口1_Table1").Filter = "[列名1] Like '*" & txb1.text & "*' or [列名2] Like '*" txb1.text & "*'"
end if
end with
Dim dst As Table = Tables("某表")
Dim txb1 As WinForm.TextBox = .Controls("TextBox1")
Tables("窗口1_Table1").Filter = "[列名1] Like '*" & txb1.text & "*' or [列名2] Like '*" txb1.text & "*'"
end if
end with
5楼
雨中的泪 发表于：2009/9/7 10:20:00代码有问题！！！
6楼
狐狸爸爸 发表于：2009/9/7 10:25:00参考：
Tables("审核").Filter = "审核 Like '*号码重复*'"
Tables("审核").Filter = "审核 Like '*号码重复*'"
[此贴子已经被作者于2009-9-7 10:25:38编辑过]
7楼
雨中的泪 发表于：2009/9/7 11:19:00如何实现模糊查询，也就是输入姓名的第一个字，用列表显示出姓第一个的所有人名！！！以此类推
8楼
雨中的泪 发表于：2009/9/7 11:25:00| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:rsgzglxt.rar |
9楼
雨中的泪 发表于：2009/9/7 15:17:00版主帮帮忙
10楼
狐狸爸爸 发表于：2009/9/7 15:20:00在 LIKE 比较中，* 作为通配符，表示任意个数的字符，通配符只能在开头或者结尾出现。例如：
[姓名] LIKE '*赫*'
[姓名] LIKE '赫*'
[姓名] LIKE '*赫'
分别表示姓名中包括“赫”，姓名开头是“赫”(姓赫)，姓名结尾是“赫”
在字符串的中间不允许使用通配符。例如，不允许 '赫*丰'