主题：加载表后,目录树点击报错

DataTables("tz").load
DataTables("bill").load

点击5号控件“刷新按钮”后4号控件“目录树”节点动作就报错了
This row has been removed from a table and does not have any data.  BeginEdit() will allow creation of new data in this row.

目录树节点点击代码：

Dim Filter As String
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
    Select Case e.Node.Level
        Case 0
            Filter = "[sender] = '" & dr("sender") & "'"
        Case 1
            Filter = "[sender] = '" & dr("sender") & "' And [portdis] = '" & dr("portdis") & "'"
     
    End Select
End If
Tables("tz").Filter = Filter

因为数据库是sql server的，上传实例没数据，只好清楚描述下