大家帮我看一下那里错了呀！！

Question

rs.MoveFirst
  For  i  =  0  To  rs.RecordCount-1
  List1(0).AddItem  rs.Fields("内容")
  rs.MoveNext
  Next  i

Answer 1

rs.MoveFirst
  For  i  =  0  To  rs.RecordCount-1
  List1(0).AddItem  rs.Fields("内容")
  rs.MoveNext
  Next  i

Answer 2

1、跟蹤RECORDCOUNT，看看它的值是多少！
2、FOR　I＝0　TO　RS.RECORDCOUNT-1
3、RS記錄集是不是有限定條件。

Answer 3

rs.MoveFirst
      While not rs.EOF
      List1(0).AddItem    rs.Fields("内容")
      rs.MoveNext
      Wend
  

Answer 4

rs.MoveFirst
i=0
while not rs.eof
   List1(i++).AddItem    rs.Fields("内容")
   rs.MoveNext
end while
肯定没错

Answer 5

是否你的字段内容含有较多空格？循环次数要象泰山那样rs.RecordCount-1

Answer 6

方安1
rs.open"..........."，cn, adOpenDynamic, adLockOptimistic
  if rs.eof=false and rs.bof=false then 
   if not rs.bof then rs.MoveFirst
        do until rs.eof
           List1(0).AddItem    rs.Fields("内容")
           rs.movenext
         loop 
    
方安2
rs.open"..........."，cn,adOpenStatic , adLockOptimistic
  if rs.eof=false and rs.bof=false then
     if not rs.bof then rs.movefirst
     For i = 0    To   rs.RecordCount-1
            rs.MoveNext
      Next    i
  endif
方安3：
 接分 

Answer 7

你的RS是怎样取得的？在某些情况下RS.RECORDCOUNT是不可用的。

Answer 8

rs.MoveFirst
    i = 0
    While Not rs.EOF
        List1(0).AddItem IIf(IsNull(rs.Fields("内容")), "", rs.Fields("内容"))
        rs.MoveNext
    Wend

Answer 9

      rs.MoveFirst
      For i = 0 To rs.RecordCount-1
      List1(0).AddItem rs.Fields("内容")
      rs.MoveNext
      Next i