Office中国论坛/Access中国论坛

标题: 怎么就不循环？ [打印本页]

作者: kelind 时间: 2009-1-6 16:42
标题: 怎么就不循环？
见了＊了，这么么简单的循环为什么就只采用rst的第一条记录值，那错了，整了一天了，帮帮吧．
dim rst as new adodb.recordset
Dim rs As New ADODB.Recordset
rst.Open "select * from tb_date", cnn, adOpenKeyset, adLockReadOnly
For i = 1 To rst.RecordCount - 1
rs.Open "tb_out", cnn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs(0) = rst(0)
rs(1) = rst(3) * 10 / 100 + rst(6) * 68 / 100 + rst(9) * 22 / 100
rs(2) = rst(2) * 10 / 100 + rst(5) * 68 / 100 + rst(8) * 22 / 100
rs(3) = rst(1) * 10 / 100 + rst(4) * 68 / 100 + rst(7) * 22 / 100
rs.Update
rs.Close
Next i
出来的所有值有是一样的，为什么不next i呢？

作者: Henry D. Sy 时间: 2009-1-6 16:55
rst.movenext
next i

作者: Grant 时间: 2009-1-6 17:07
没有移动指针嘛

作者: slowgrace 时间: 2009-1-6 17:16
2楼正解

作者: kelind 时间: 2009-1-6 17:23
该打，该打．怎么就漏了这一句．我说呢，用烂了的句子怎么就下岗了，还以为ado要跳槽涨工资呢．
谢谢，啊

作者: Henry D. Sy 时间: 2009-1-6 17:27
For i = 1 To rst.RecordCount - 1
最后一条记录不需要吗

作者: kelind 时间: 2009-1-6 17:36
最后一条不能要．所以i=1 to rst.recordestcount-1
谢谢

作者: slowgrace 时间: 2009-1-6 17:47

原帖由 Henry D. Sy 于 2009-1-6 17:27 发表
For i = 1 To rst.RecordCount - 1
最后一条记录不需要吗

真细心

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)