主题：筛选结果

Dim Filter As string = "分配状态='待分配' and 负责人='" & _UserName & "'"

With e.Form.Controls("项目代号1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "项目代号= '"     & .Value & "'"
    End If
End With
With e.Form.Controls("项目名称1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "项目名称= '" & .Value & "'"
    End If
End With

e.Form.controls("拆分节点").Table.DataTable.LoadPage = 0
e.Form.controls("拆分节点").Table.DataTable.LoadFilter = Filter
e.Form.controls("拆分节点").Table.DataTable.Load