标题：[求助]一个关联问题

我在CurrentChanged事件中写了一段代码，用来实现当光标在不同行间变化时，触发DataColChanged事件，这样可以时时刷新一个窗口中的数据，这个功能是顺利实现了，但是同时出现了另外一个问题，就是关联的主表在使用筛选树时，老是弹出一个故障对话框，请大虾们帮看看是怎么回事。

 

CurrentChanged事件代码，实现先清空再重新附值，从而触发DataColChanged事件：

Dim s As String=e.Table.Current("查找型号")
e.Table.Current("查找型号")=Nothing
e.Table.Current("查找型号")=s

 

然后发现在主表中，使用筛选树后的问题：

 

 

此主题相关图片如下：未命名4.jpg

加了一段判断代码，解决了：

If e.Table.Current Is Nothing Then '如果Current为Nothing
    Return '则返回
End If

还是没有彻底解决。加了判断代码后，不会出现使用筛选树时每行都弹出错误代码，但在主表中当前行是子表对应的那条记录时，就出现了错误对话框。何故呢？

 

此主题相关图片如下：未命名1.jpg


此主题相关图片如下：未命名4.jpg

我把代码转移到Positionchanged事件中，问题解决了！