- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 触发事件的信息变了 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=14617)
-- 发布时间：2011/11/26 8:33:00
-- 触发事件的信息变了
Dim txt As String = e.Form.Controls("a").Text
If txt = "" Then
Tables("窗口1").Filter = ""
Else
Tables("窗口1").Filter = "人名 Like \'*" & txt & "*\'"
End If
上面的代码我只要一运行就会出现如图 请问我的问题出现在什么地方
此主题相关图片如下：qq截图20111126083215.png
-- 发布时间：2011/11/26 8:33:00
--
泥料配比 就是窗口1
-- 发布时间：2011/11/26 8:48:00
--
检查“泥料配比”表的“PositionChanged”事件代码。
当筛选后，表中没有符合条件的行的时候，使用表的Current属性会出错，因为此时没有当前行。
应该将此事件的代码改为：
if e.Table.Current IsNot Nothing Then
\'原来的代码
Else
End if
你自己检查一下代码，或者你贴出这个事件代码，我帮你检查一下。
-- 发布时间：2011/11/26 9:26:00
--
这个代码是在TextBox格中进行收索的 但是if e.Table.Current IsNot Nothing Then代码写上去会出现Table成员问题 请指教一下 亲亲的狐狸爸爸
-- 发布时间：2011/11/26 9:43:00
--
Dim txt As String = e.Form.Controls("a").Text
If txt = "" Then
Tables("窗口1").Filter = ""
Else
Tables("窗口1").Filter = "人名 Like \'*" & txt & "*\'"
End If
这段代码是在窗口的TextBox中写进去的 在值改变后执行
问题的出现与狐爸爸说的是一样的 但是狐爸爸给出的代码
我加进去后
If e.Table.Current IsNot Nothing Then
Dim txt As String = e.Form.Controls("a").Text
If txt = "" Then
Tables("泥料配比").Filter = ""
Else
Tables("泥料配比").Filter = "计划号 Like \'*" & txt & "*\'"
End If
Else
End If
会出现如图
此主题相关图片如下：202.png
-- 发布时间：2011/11/26 9:59:00
--
我说的不是你这个控件的代码，是“泥料配比”表的“PositionChanged”事件代码。
是这个事件：
http://www.foxtable.com/help/topics/0640.htm
-- 发布时间：2011/11/26 10:17:00
--
foxtable每次出现错误的时候，会告诉你错误代码的位置，例如你的图说明出现问题的代码在"泥料配比"表的PositionChanged事件。
