我的这段代码运行的结果不太对

Question

我的数据库里原来有数据，现在又添加一个字段，只想更新这个字段（组号）的值:
  rstTemp.Open "select * from Tt where [序号]='" & Number & "'", pblConn, adOpenKeyset, adLockOptimistic
    If Not rstTemp.EOF Then
       intGroup = rstTemp.RecordCount / 2
       For i = 1 To intGroup
           rstTemp.Fields!组号 = i
           rstTemp.MoveNext
           rstTemp.Fields!组号 = i
      Next i
    End If
我想要的是
  number      组号
    1          1
    1          1
    1          2
    1          2
但结果是
   number      组号
     1           1
     1           2
     1
     1
这是怎么回事

Answer 1

我的表结构大概是这样：序号    名称    部位  三个字段，记录是同一序号有多条记录，两条记录为一组
现在我又加个字段里  组号 ，想把“组号”的内容加进去。组数=rst.RecordCount/2，
加后的结果就是
  序号   名称    部位   组号
   1    2326   23656    1
   1    2626   2656     1
   1     25      5959    2
   1     595     48     2

Answer 2

  rstTemp.Open "select * from Tt where [序号]='" & Number & "'", pblConn, adOpenKeyset, adLockOptimistic 
    i=0
    If Not rstTemp.EOF Then 
      
      i = i+ 1 
          rstTemp.Fields!组号 = (i+1)\2 
          rstTemp.MoveNext     End If 

Answer 3

      For i = 1 To intGroup Step 2
          rstTemp.Fields!组号 = i
          rstTemp.MoveNext
          rstTemp.Fields!组号 = i
      Next i

Answer 4

      For i = 1 To intGroup Step 2
          rstTemp.Fields!组号 = i
          rstTemp.MoveNext
          rstTemp.Fields!组号 = i
          rstTemp.MoveNext
      Next i

Answer 5

运行通过了，谢谢！
king06的好像不太对

Answer 6

呵呵,是错的...跟着犯傻了吧
不要step 2 直接加个rstTemp.MoveNext就可以了

Answer 7

不知道楼主的记录总数会不会是单数,那样要处理一下,不过我的step 2 是加错了

Answer 8

For i = 1 To intGroup 
          rstTemp.Fields!组号 = i 
          rstTemp.MoveNext 
          rstTemp.Fields!组号 = i 
         rstTemp.MoveNext 
 Next i 
这样也对

Answer 9

再问一个问题：把数据库的某一字段的值清空：
Update T_Data set 组号=null
在set位置提示：语句结束，这是怎么回事