主题：关联筛选的问题

 在筛选的后面加入代码。

Dim projects As List(Of String) = DataTables("表A").GetUniqueValues(filter, "项目名称")
Dim str_pros As String = ""
For Each project As String In projects
    str_pros = str_pros & "'" & project & "',"
Next
DataTables("表C").LoadFilter = "项目名称 in (" & str_pros.Trim(",") & ")"
DataTables("表C").Load()