dim ls as new list(Of string)ls.add(123)ls.add("abc")Dim sql As String = "select * from {xx明细} where 某列 in ('" & String.Join("','", ls.ToArray) & "')"msgbox(sql)