- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 窗口table（表）控件问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=169783)
-- 发布时间：2021/6/30 13:12:00
-- 窗口table（表）控件问题
我现在设计了一个这么个录入窗口，窗口里加了一个Table（表）的控件，我有设计了一个查找栏，查找栏的代码如下，我想点击查找栏，Table（表）控件里的内容显示的是我查找栏里的内容，请问大神这段代码里还需要怎么修改。
Dim tbx As WinForm.TextBox = e.Form.Controls("czdwmc")
Dim chk As WinForm.CheckBox = e.Form.Controls("mhcz")
Dim str As String = tbx.Value
Dim dr As DataRow
If chk.Checked Then
dr = DataTables("冷轧日报").Find("熔次号 Like \'%" & str & "%\'","_identify desc") \'模糊查找
Else
dr = DataTables("冷轧日报").Find("熔次号 = \'" & str & "\'","_identify desc") \'精确查找
End If
If dr IsNot Nothing Then
Dim idx As Integer = Tables("冷轧日报").FindRow(dr)
If idx >= 0 Then
Tables("冷轧日报").Position = idx
End If
End If
-- 发布时间：2021/6/30 13:18:00
--
参考 http://www.foxtable.com/webhelp/topics/1534.htm
-- 发布时间：2021/6/30 13:33:00
--
此主题相关图片如下：1.jpg
老师代码是这么写的，但是在运行的时候就报了这个错误
Dim txt As String = e.Form.Controls("czdwmc").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
End If
-- 发布时间：2021/6/30 13:42:00
--
Dim tbx As WinForm.TextBox = e.Form.Controls("czdwmc")
Dim chk As WinForm.CheckBox = e.Form.Controls("mhcz")
Dim str As String = tbx.Value
Dim dr As DataRow
dim filter as string
if str > "" then
If chk.Checked Then
filter = "熔次号 Like \'%" & str & "%\'") \'模糊查找
Else
filter ="熔次号 = \'" & str & "\'") \'精确查找
End If
end if
Tables("粗轧录入_Table1") = filter
-- 发布时间：2021/6/30 13:55:00
--
编译的时候报了这个错误？？？
此主题相关图片如下：1.jpg
此主题相关图片如下：1.jpg-- 发布时间：2021/6/30 13:58:00
--
Tables("粗轧录入_Table1").filter = filter
-- 发布时间：2021/6/30 14:21:00
--
老师可以查询了，但就是查找栏里的内容和Table（表）里的内容不同步。
此主题相关图片如下：1.jpg
-- 发布时间：2021/6/30 14:24:00
--
弹出条件看看：msgbox(filter)
-- 发布时间：2021/6/30 14:35:00
--
老师弹出来的条件是这个
此主题相关图片如下：1.jpg
-- 发布时间：2021/6/30 14:49:00
--
老师查出来的内容都是我上次在查找栏里输入的内容。