以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]根据自定义录入界面之四改的代码提示出错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=142158)

--  作者:12397522011
--  发布时间:2019/10/20 0:34:00
--  [求助]根据自定义录入界面之四改的代码提示出错
根据自定义录入界面之四改的代码提示出错
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编辑过]

--  作者:有点酸
--  发布时间:2019/10/20 9:22:00
--  
tbl.Filter =  "桥梁名称 Like " & txt & " Or 桥梁代码 Like " & txt 

改为:

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


--  作者:12397522011
--  发布时间:2019/10/20 20:29:00
--  
非常感谢,我重新按步骤做了一遍就好了,没发现问题是啥,再次感谢