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

 你用的是什么版本？我一行一行，或者连续多行删除，都没有报错。

 我用的就是10.20版，你怎么测试会报错？

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

 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

 不要触发目录树的对应事件