同样这样查,如
Dim abc As String = DataTables("航点表").GetComboListString("城市","简称 in ('" & String.Join("','",lst.ToArray) & "') and 过.夜 = true")