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

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

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

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

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

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

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