主题：触发事件的信息变了

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

泥料配比 就是窗口1  

检查“泥料配比”表的“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

我说的不是你这个控件的代码，是“泥料配比”表的“PositionChanged”事件代码。

是这个事件：

http://www.foxtable.com/help/topics/0640.htm

 

foxtable每次出现错误的时候，会告诉你错误代码的位置，例如你的图说明出现问题的代码在"泥料配比"表的PositionChanged事件。