想做一个通用的弹出选择窗口，然后加上一个输入过滤条件的文本框，点“过滤”按钮就可以进行模糊查询所有字段，如下图：
此主题相关图片如下：图像 1.png
”过滤“按钮的click事件代码：
Dim selectTable As Table = Tables(e.Form.name & "_selectTable") '窗口的table
Dim filterText As String = e.Form.controls("filterTextBox").value '文本框的值
Dim fText As String = ""
For Each c As Col In selectTable.Cols
fText = fText & c.name & " like '%" & filterText & "%' or "
Next
selectTable.Filter = fText.SubString(0, fText.Length - 4)
现在有个问题，就是，如果某一列的类型为数字，例如图中的“类型值”，就会报错，不能实现过滤。有没有办法实现，不过列的类型是什么，都可以进行模糊查询？
已解决，详见3楼
[此贴子已经被作者于2013-4-25 13:40:28编辑过]
加好友 
发短信
Post By：2013/4/25 11:46:00 [只看该作者]
