[求助]根据自定义录入界面之四改的代码提示出错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

根据自定义录入界面之四改的代码提示出错

1、参考的代码

此主题相关图片如下：1.png

2、修改后的代码

Dim txt As String = e.Form.DropDownBox.Text

Dim tbl As Table = Tables("桥梁汇总表_Table1")

If txt = "" Then

tbl.Filter = ""

Else

txt = "'%" & txt & "%'"

MessageBox.Show( txt )

tbl.Filter = "桥梁名称 Like " & txt & " Or 桥梁代码 Like " & txt

End If

e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框

3、错误提示

此主题相关图片如下：3.png

[此贴子已经被作者于2019/10/20 0:45:47编辑过]

主题：[求助]根据自定义录入界面之四改的代码提示出错