- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 窗口代码问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=87817)
-- 发布时间：2016/7/20 13:24:00
-- 窗口代码问题
此主题相关图片如下：付款查询.png
我做了一个窗口，代码如下：
Dim txt As String = e.Form.Controls("gysbm").Text
Dim tbl As Table = Tables("付款_Table1")
Dim tbl1 As Table = Tables("付款_Table2")
If txt = "" Then
tbl.Filter = ""
tbl1.Filter = ""
Else
txt = "\'%" & txt & "%\'"
tbl.Filter = "供应商编码 Like " & txt
tbl1.Filter = "供应商编码 Like " & txt
End If
但，我输入供应商编码时出现错误，请大师帮忙。
-- 发布时间：2016/7/20 13:24:00
--
此主题相关图片如下：错误提示.png
错误提示是这样。
-- 发布时间：2016/7/20 14:20:00
--
tbl.Filter = "供应商编码 Like " & txt
tbl1.Filter = "供应商编码 Like " & txt
改成
tbl.Filter = "Convert(供应商编码, \'System.String\') Like " & txt
tbl1.Filter = "Convert(供应商编码, \'System.String\') Like " & txt
-- 发布时间：2016/7/20 15:18:00
--
谢谢大红袍大师。