就像下面我使用的示例一样尝试..它是使用arraylist创建的。结果将是一个形式为 ("value10,value11,value12,value13") 的字符串,可以在查询中传递。在第一个数组即 array1 中,删除重复项
Dim Array1 As New ArrayList
Dim Array_Com As New ArrayList
Dim Word_1 As String = "Value1"
Dim word_2 As String = "("""
Dim i As Int32
Dim j As Int32
Dim k As Int32 = Array1.Count
For i = 0 To 3
Array1.Add(Word_1 & i)
Next
For j = 0 To Array1.Count - 1
If k < Array1.Count - 1 Then
Array_Com.Add(Array1.Item(j) & ",")
'MsgBox(Array_Com.Item(j))
k += 1
Else
Array_Com.Add(Array1.Item(j) & """" & ")")
End If
Next