比如代码
Dim dhs As String = DataTables("表A").GetComboListString("定制 = true")Tables("表A").filter = "单号 in ('" & dhs.replace("|", "','") & "')"