主题：复杂的筛选功能

Dim t As Table = Tables("计划表")
Dim str As String = "'',"
For Each mc As String In t.DataTable.GetValues("项目名称")
    Dim flag As Boolean = True
    For Each lc As String In t.DataTable.GetValues("项目流程", "项目名称='" & mc & "'")
        Dim fdr As DataRow = t.DataTable.Find("状态 = '已完成' and 项目名称='" & mc & "' and 项目流程 = '" & lc & "'")
        If fdr Is Nothing
            flag = False
            Exit For
        End If
    Next
    If flag Then
        str  &= "'" & mc & "',"
    End If
Next

t.filter = "计划_开始日期 is not null and 项目名称 in (" & str.trim(",") & ")"