1,216
社区成员
发帖
与我相关
我的任务
分享
Dim str1 As String
If List1.ListCount > 0 Then
For i = 0 To List1.ListCount - 1
str1 = str1 & "," & List1.List(i)
Next
str1 = Mid(str1, 2)
End If
strSQL="select * from table1 where 字段1 in (" & str1 & ")"
dim sql as string
dim a
a=array(2,3,410,99)
'如果IN子句是数字
a=join(a,",")
sql="select * from tb where id in ("& a &")"
debug.? sql
'如果IN子句是字符类型
a=join(a,"','")
sql="select * from tb where id in ('"& a &"')"
debug.? sql