For i = 0 To rs.RecordCount - 1
  vntTemp = rs(i).value
  Combo1.AddItem vntTemp
  rs.MoveNext
  Next
i = 0 时可以,但下一个循环中rs(i)就说记录中无此项目!
请问应该如何取得记录中的具体值呢?vntTemp = rs(i).value正确写发应是什么?
在线等!

解决方案 »

  1.   

    这样rs!value就可以了,不用加那个i,因为你用了rs.movenext,它会自动跳到下一条记录的。
      

  2.   

    For i = 0 To rs.RecordCount - 1
      vntTemp = rs.value
      Combo1.AddItem vntTemp
      rs.MoveNext
      Next
      

  3.   

    TO:jiangjian0427(carabao) 
    rs.value通不过!“没有此方法或数据成员!”
      

  4.   

    你的表是否就一个字段?rs.movefirst
    do while not rs.eof
    Combo1.AddItem rs(0).value   'rs.fields(0).value
      rs.Movenext
    loop
      

  5.   

    我的 表里 就一个字段!rs.fields(i).value我也 试过了!
    还是没有此项目!
      

  6.   

    Data2.RecordSource = "select * from 工作方式"
      Data2.Refresh
      Set rs = Data2.Recordset
    另外,上面的代码是设置数据源的!
      

  7.   

    用rs.fields(0).value这个语句不是用rs.fields(i).value
      

  8.   

    For i = 0 To rs.RecordCount - 1
      vntTemp = rs.fileds(i)
      Combo1.AddItem vntTemp
      rs.MoveNext
      Next
      

  9.   

    看一下rs.RecordCount的值,有可能是-1
      

  10.   

    Recordset好像有一个EOF的属性,那就用不着For循环了,用while吧,读记录直到rs.eof=true为止
      

  11.   

    rs.movefirst
    do while not rs.bof and not rs.eof 
    vntTemp = rs.fileds(0).value '若只有一个字段的时候,vntTemp与字段里的类型要一直!
    rs.movenext
    loop
      

  12.   

    在FOR循环之前已经用过 rs.movelast  和 rs.movefirst
    rs.RecordCount的值为4,已经用MSGBOX显示了!
      

  13.   

    northwolves和sword281()说的方法是对的!
    谢谢!已经成功!