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

ning1958 2011-04-03 12:20:32
已知条件:数组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

谢谢。
...全文
66 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
luofenghen 2011-04-03
  • 打赏
  • 举报
回复

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


luofenghen 2011-04-03
  • 打赏
  • 举报
回复

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

threenewbee 2011-04-03
  • 打赏
  • 举报
回复
Rst.MoveNext:Rst.MoveNext

写两遍。
dbcontrols 2011-04-03
  • 打赏
  • 举报
回复
取得的值也好多吧?
也需要用数组暂存
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

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧