主题：关于下拉组合框的再次提问

按照

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=105181&replyID=&skin=1

之前提问的，

参照老师的帮助

http://www.foxtable.com/webhelp/index.htm?page=2466.htm

将问题解决了一些

但是在筛选的时候，只能筛选编号字段。

我希望筛选的时候，能筛选器械种类

 

“器械信息表”包含：编号、器械种类等字段。

我需要筛选“器械种类”字段 =“器械包”的，就出错

DropDownOpened代码为：

Dim txt  As  String = e.Form.DropDownBox.Text
Dim tbl As Table =  Tables("选包窗口_器械信息表")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'%" & txt & "%'"
    tbl.Filter = "编号 Like " & txt & " and 器械种类 = 器械包 "
   
End If
e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框

 

错误如下图：

 

此主题相关图片如下：微信截图_201720820183257.png

 

 

 如果

DropDownOpened代码为：

Dim txt  As  String = e.Form.DropDownBox.Text
Dim tbl As Table =  Tables("选包窗口_器械信息表")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'%" & txt & "%'"
    tbl.Filter = "编号 Like " & txt & ""
   
End If
e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框

 

下拉框还显示了其他类型的器械

 

此主题相关图片如下：微信截图_20170820183519.png

筛选代码这样写

 

 tbl.Filter = "编号 Like " & txt & " and 器械种类 = '器械包' "

 

 

筛选代码这样写

 

 tbl.Filter = "编号 Like " & txt & " and 器械种类 = '器械包' "