主题：目录树过渡表数据的代码要怎么写？

各位老师，

如下图：我在单据审批中当选定流程子节点时想筛选出父节点的表的需要审批的单据出来

此主题相关图片如下：qq截图20120908224219.jpg

用了如下的代码，但红色这行怎么写按确定都不能通过

Dim Filter As String
Dim Value()As String
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
    Case 0
        Tables(e.Node.Text).Filter = ""
        MainTable = Tables(e.Node.Text)
        DataTables.AllowEdit = True
    Case 1
        '得到单据审批记录表中未结束的需要审批表单的编号
        Dim nms As List(Of String)
        nms = DataTables("单据审批记录").GetUniqueValues("表名= '" & e.Node.ParentNode.Text & "' and 结束 = false", "编号")
        '从系统表中得到当前父节点的表使用的单据编号列的名称,然后过滤得到编号在单据审批记录中的表.
        Dim dr As DataRow = DataTables("系统表").Find("表名 = '" & e.Node.ParentNode.Text & "'")
        If dr IsNot Nothing Then
            Dim num As String = dr("单据编号列")
            Tables(e.Node.ParentNode.Text).Filter = "dr("单据编号列")  In " & nms & ""
             MainTable = Tables(e.Node..ParentNode.Text)
        DataTables.AllowEdit = True

        End If
End Select

请问要怎么写才正确，

谢谢！