Dim dts As String = DataTables("reuck").SqlGetComboListString("车号", "条件")
msgbox(dts)
filter = "车号 in (\'" & dts.replace("|", "\',\'") & "\')"
msgbox是messagebox吗