好奇怪,一个小时前还是好的,也没修改窗口代码,结果就出错了。
此主题相关图片如下:qq截图20170103115604.png
此主题相关图片如下:qq截图20170103115419.png
哪位大神能指点下问题出在哪里了?
'DropDownOpened
Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("物料下拉_Table1")
If txt = "" Then
tbl.Filter = ""
Else
txt = "'%" & txt & "%'"
tbl.Filter = "物号 Like " & txt & " Or 名称 Like " & txt & " Or 规格 Like " & txt & " Or 材质 Like " & txt & " Or 品牌 Like " & txt
End If
e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框
[此贴子已经被作者于2017/1/3 12:19:03编辑过]