首先定义数组，我是同事session传值的

复制代码 代码如下:

Dim struser As New List(Of String)

struser = Session("chooseuser")

strruser = ""

For a = 0 To struser.Count - 1

If a = 0 Then

strruser = "'" & struser.Item(a).ToString.Trim & "'"

Else

strruser = strruser & " , " & "'" & struser.Item(a).ToString.Trim & "'"

End If

Next

然后就可以吧strruser带入到sql语句中使用。