主题：[求助]为什么删除行后会报出错误呢

 怎样测试一定报错？我删除表数据没报错。

 CurrentChanged 代码

If e.Table.Current IsNot Nothing Then  '一定要判断是不是空表
    If Forms("窗口1").Opened Then
        systemready = False
        Dim TV As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
        If TV IsNot Nothing Then
            For Each node As WinForm.TreeNode In TV.AllNodes
                If  node.FullName.replace("\",".") = e.Table.Current("Code")
                    TV.SelectedNode = node
                End If
            Next
        End If
        systemready = True
    End If
End If