关于data控件的问题

Question

dim i
i=0
data1.recordset.movefirst
if data1.recordset.eof<>true then
   i=i+1
   data1.recordset.movenext
else
    data1.recordset.movefirst 
end if最后的i就是recordset的记录数

Answer 1

VB里面没有提供也不可能提供data1.recordset.count这样的属性，因为在大型数据库里面，记录数达到万级以上的很普通，不可能将记录一次就全部读入内存，只可能通过一次读入部分的方式来获取记录数。特别当recordset是由sql来生成的话，那么就更加不方便于统计了

Answer 2

用这个应该可以：
Data1.Recordset.RecordCount

Answer 3

Dim recountwith data1         .recordset.movelost
         .refresh
reconts= .Recordset.Recordcount   记录数End with