主题：dropdownbox筛选表格数据

现在我做了一个界面，有一个dropdownbox(下面就简称DDB),一个checkbox(下面就简称CHK)。还有下面绑定了一张表（table1）

其中CHK是选择是否支持模糊查找，勾上就是支持，不勾上就精确查找。

DDB希望能够输入某些值后按照某些列的值进行查找，（可以在Enter事件里面写，写可以在ModalButtonClick）中，像知道具体怎么实现，最好能给出详细的代码设计，我不是很懂这个foxtable。

类似界面如下：

此主题相关图片如下：qq截图20130625113127.png

可以在框中输入零部件名称进行模糊查询。

大神，还有一个小问题，就是如果筛选的记录没有的话，就会报错，能不能不让他报这个错误啊。

能够匹配的时候：

 

此主题相关图片如下：qq截图20130625133356.png

不能匹配的时候：

 

此主题相关图片如下：qq截图20130625133343.png

设计代码：TextChanged:

Dim txt As String = e.Form.Controls("DropBox11").Text
Dim tbl As Table = Tables("基本信息表")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'*" & txt & "*'"
    tbl.Filter = "设备编号 Like " & txt

End If

 

顺便问一下:Else If txt != "" And e.Form.Controls("CheckBox11").Checked = True
这句话编译不过 提示应为标识符，怎么解决？我的意思就是想checkbox选中的时候才进行模糊匹配。

 

 

非常感谢，还有个问题就是我的模糊查找不勾选的时候，也就是精确匹配的时候，怎么实现呢，现在按照我的代码不行，而且每在DDB输入一个字符就会弹出一个错误信息。

如下图：

 每输入一个字符就会弹出类似窗口：

此主题相关图片如下：qq截图20130625133343.png

输入正确的编号还是没有出来结果：

此主题相关图片如下：qq截图20130625133356.png

代码是：

Dim txt As String = e.Form.Controls("DropBox11").Text
Dim bln As Boolean = e.Form.Controls("CheckBox11").Checked
Dim tbl As Table = Tables("基本信息表")
If txt = "" Then
    tbl.Filter = ""
ElseIf bln = False Then
    tbl.Filter = "设备编号 = " & txt

Else
    txt = "'*" & txt & "*'"
    tbl.Filter = "设备编号 Like " & txt

End If

恩恩 ，谢谢啊 有问题还会来请教你！

恩 好的，对这个foxtable刚学习，不是很熟 ，会慢慢强化的。