Dim tb1 As Table = Tables(e.Form.Name & "_Table1")
Dim lst As New List(Of String)
lst = Tables("项目信息").DataTable.GetValues("项目编号","选中 = 1")
If lst.Count = 0 Then
tb1.DataTable.LoadFilter = "项目编号 is Null"
Else
tb1.DataTable.LoadFilter = "项目编号 in ('" & String.Join("','",lst.ToArray) & "')"
End If
msgbox(tb1.DataTable.LoadFilter)
tb1.DataTable.Load()