Dim t As Table = Tables("计划表") Dim ls = t.DataTable.GetValues("项目名称|项目流程", "状态 = '已完成'") Dim str As String = "''," For Each ary() As String In ls str &= "'" & ary(0) + ary(1) & "'," Next t.filter = "计划_开始日期 is not null and 项目名称+项目流程 not in (" & str.trim(",") & ")"