看看
Dim lst As new List(Of String)For i As Integer = 1 To 20 lst.Add(Cstr(i))Next
Dim str As String = String.Join("','",lst.ToArray)msgbox(str)Dim lis2 As List(Of String) = DataTables("编号统计").GetValues("市内_入围编号","投标单位 in ('" & str & "')")