Case "景点" Dim khmc3 As String = "%" & key.Value & "%" Dim A2 As String = DataTables("行程安排表").GetComboListString("业务编号","景点1 like '" & khmc3 & "' Or 景点2 Like '" & khmc3 & "' Or 景点3 Like '" & khmc3 & "' Or 景点4 Like '" & khmc3 & "'") Tables("查询窗口_Table1").Filter = "业务编号 in ('" & a2.Replace("|", "','") & "')"