请教一段程序

Question

有张表定子部件:   周期    计划入库
                   1         0
                   2         0
                   3         0
                   4         40
                   5         0
                   6         0
                   7         0
                   8         0
程序:...
     rs6.Open "select 计划入库 from 定子部件", db, adOpenStatic, adLockReadOnly
     For i = 1 To cout
       If Not rs6.EOF Then
          jhrk(i) = rs6.Fields("计划入库").Value
   
       End If
     Next i
For i = 1 To cout
rs2.Open "update 定子部件 set 计划入库='" & jhrk(i) & "'where 周期='" & i & "'", db, adOpenStatic, adLockReadOnly
next i为什么最后表中显示的计划入库字段下的纪录值全部为0
错在哪里了?

Answer 1

你的记录集打开以后,在给变量赋值的过程中没有向后移动,向下边这样改一下
rs6.Open "select 计划入库 from 定子部件", db, adOpenStatic, adLockReadOnly
     For i = 1 To cout
       If Not rs6.EOF Then
          jhrk(i) = rs6.Fields("计划入库").Value
   
       End If
       rs6.movenext
     Next i
For i = 1 To cout
rs2.Open "update 定子部件 set 计划入库='" & jhrk(i) & "'where 周期='" & i & "'", db, adOpenStatic, adLockReadOnly
next i为什么最后表中显示的计划入库字段下的纪录值全部为0
错在哪里了?