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