7,759
社区成员
发帖
与我相关
我的任务
分享
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
rst.MoveFirst
for ii = 0 to Rst.RecordSet.Count-1 Step
X1 = Rst.Fields(0)
Rst.MoveNext
X2 = Rst.Fields(0)
Rst.MoveNext
next ii
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