rs.clone,该如何解决

rs.clone
请问rs.clone用于什么情况？
我的一个窗体

VB code

Private Sub Form_Load()           '初始化  Dim rs As ADODB.Recordset  Set rs = New ADODB.Recordset  sqlstr = "select * from result"  rs.Open sqlstr, Cnn, adOpenKeyset, adLockOptimistic  Set fg.DataSource = rs.Clone  '=rs不能显示所有的记录，rs.clone却可以显示完整  rs.Close  Set rs = NothingEnd Sub

[解决办法]
rs.clone就是备份一个recordset
[解决办法]
rs.Clone 返回的记录集和 rs 使用相同的数据，主要是当前记录和索引可以不同。这样就可以在同一个数据集的不同位置同时进行访问。

不知道你的fg是什么控件，完整显示估计是游标类型的问题：
rs是服务端游标，初始时 RecordCount 为 -1，所以显示不正确。
而 rs.Clone 需要构建自己的索引，遍历了一遍数据，所以有正确的 RecordCount 就能完整显示。
将 Cnn.Open 前设置 Cnn.CursorLocation = adUseClient 试试。

[解决办法]
rs.open前设置
rs.CursorLocation = adUseClient
就可以了