主题：缺少运算符

Dim Filter As String
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
If e.Node.Text <> "显示所有工作列表"Then
    Select Case e.Node.Level
        Case 0
            Filter = "[执行人员] = '" & dr("执行人员") & "' and 已结束 = False"
    End Select
End If
Tables("工作计划").Filter = "(" & Filter & ") and 已结束 = False"

Dim Filter As String = "1=1"
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
If e.Node.Text <> "显示所有工作列表"Then
    Select Case e.Node.Level
        Case 0
            Filter = "[执行人员] = '" & dr("执行人员") & "' and 已结束 = False"
    End Select
End If
Tables("工作计划").Filter = "(" & Filter & ") and 已结束 = False"

执行同步后DataTables("工作计划").Load

双击节点， 出现错误：

此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据

 双击节点事件，不能用 e.Node.DataRow 改成 e.Node.FullPath

http://www.foxtable.com/webhelp/scr/2690.htm

为什么会发生这个错误呢， 其他筛选树没有出现这种情况

如果你目录树根据此表生成，你重新加载此表，datarow就会失效。

谢谢老师！更改成下列代码， OK!

Dim Filter As String = "1=1"
Dim  Value() As   String
Value =  e.Node.FullPath.Split("\")
If  e.Node.Text <>  "显示所有工作列表" Then
    Select Case  e.Node.Level
        Case  0
            Filter = "[执行人员] = '" & Value(0) & "' and 已结束 = False"
    End Select
End If
Tables("工作计划").Filter = "(" & Filter & ") and 已结束 = False"