Rst如何同时2条记录的值？

Question

已知条件：数组dim Arr(100,3)
for ii = 0 to n Step 2
next ii
例如Step=2时。下面程序成立。
for ii = 0 to n Step 2
  X1 = Arr(ii,1)
X1 = Arr(ii,1)
  X2 = Arr(ii+1,1)
next ii
以此为依据。
-----------------------------
目标需求
SQL→生成数据集Rst
rst.MoveFirst
for ii = 0 to Rst.RecordSet.Count-1 Step
  X1 = Rst.Fields(0)
  ???   如何获得2个记录  Rst.MoveNext→跳2个记录。next ii谢谢。

Answer 1

rst.MoveFirst
for ii = 0 to Rst.RecordSet.Count-1 Step
  X1 = Rst.Fields(0)
    Rst.MoveNext
X2 = Rst.Fields(0)
Rst.MoveNextnext ii

Answer 2

rst.MoveFirst
for ii = 0 to Rst.RecordSet.Count-1 Step
  X1 = Rst.Fields(0)
    Rst.MoveNext
X2 = Rst.Fields(0)
Rst.MoveNext
ii=ii+1
next ii

Answer 3

取得的值也好多吧?
也需要用数组暂存
dim X1(int((Rst.RecordCount/2)+1)
dim X2(int((Rst.RecordCount/2)+1)
i=0
rst.MoveFirst
do While rst.Eof=False
i=i+1
X1(i) = Rst.Fields(0)
Rst.MoveNext
X2(i) = Rst.Fields(0)
Rst.MoveNext
Loop