请教一个数组的写法，在线等待~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Question

我想定义一个数组为array={(1,2,3),(4,5,6)}然后在查询中循环执行两次查询select  * from table where set in "&array（i）&"应该怎样写呢？不好意思，我以前没有用过数组

Answer 1

只是查询数组吗???用的了sql吗?

Answer 2

是这样的，查询的条件是在数组里面存放的，
比如
select * table where set in (1,2,3)
请教该怎么写？

Answer 3

建立一个二维数组
要得到数组中某一个值，用循环就可以了
例子1：
Private Sub Command1_Click ()
   Dim intX As Integer   '声明计数器变量。
   '声明并放置整数数组。
   Dim countersA (5) As Integer
      For intX = 0 To 4
         countersA (intX) = 5
      Next intX
   '声明并放置字符串数组。
      Dim countersB (5) As String
         For intX = 0 To 4
            countersB (intX) = "hello"
         Next intX
   Dim arrX (2) As Variant         '声明拥有两个成员的新数组。
      arrX (1) = countersA ()      '将其它数组移居到数组。
      arrX (2) = countersB ()
      MsgBox arrX (1) (2)         '显示每一个数组的成员。
      MsgBox arrX (2) (3)
End Sub例子2：
Private Sub Form_Load()
   Dim b As Byte
   Dim I As Integer
   Dim ReturnArray() As Byte
   i  = Cbyte(54)
   ReturnArray() = ArrayFunction(b)
   For i = 0 To Ubound(ReturnArray)
      Debug.Print ReturnArray(i)
   Next
End SubPublic Function ArrayFunction(b As Byte) As Byte()
   Dim x(2) As Byte
   x(0) = b
   x(1) = b + CByte(200)
   x(2) = b + b
   ArrayFunction = x   
End Function