标题：触发事件的信息变了
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
检查“泥料配比”表的“PositionChanged”事件代码。
当筛选后，表中没有符合条件的行的时候，使用表的Current属性会出错，因为此时没有当前行。
应该将此事件的代码改为：
if e.Table.Current IsNot Nothing Then
'原来的代码
Else
End if
你自己检查一下代码，或者你贴出这个事件代码，我帮你检查一下。
这个代码是在TextBox格中进行收索的 但是if e.Table.Current IsNot Nothing Then代码写上去会出现Table成员问题 请指教一下 亲亲的狐狸爸爸
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
foxtable每次出现错误的时候，会告诉你错误代码的位置，例如你的图说明出现问题的代码在"泥料配比"表的PositionChanged事件。
