以文本方式查看主题
-
Foxtable(狐表)
(http://foxtable.com/bbs/index.asp)
--
专家坐堂
(http://foxtable.com/bbs/list.asp?boardid=2)
----
[求助]根据自定义录入界面之四改的代码提示出错
(http://foxtable.com/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 & "\'"
http://www.foxtable.com/webhelp/topics/0102.htm
http://www.foxtable.com/webhelp/topics/1647.htm
-- 作者:12397522011
-- 发布时间:2019/10/20 20:29:00
--
非常感谢,我重新按步骤做了一遍就好了,没发现问题是啥,再次感谢