主题：目录树加个条件

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("执行人员") & "'"
    End Select
End If
Tables("工作计划").Filter = Filter

如何加个执行人员下工作已结束=false的条件