GetForDetailReportByDoctorID.MoveLast
GetForDetailReportByDoctorID.RecordCount=“应该的数”

解决方案 »

  1.   

    把m_cn.CursorLocation设置为客户端游标
        
        
      

  2.   

    Public Function GetForDetailReportByDoctorID(ByVal DoctorID) As Recordset
        Dim strSQL As String
        Dim cmd As Command
        
        Set cmd = New ADODB.Command
        Set cmd.ActiveConnection = m_cn
        
        cmd.CommandText = "Query1"  '所用查询名称
        cmd.CommandType = adCmdTable
        m_cn.CursorLocation = adUseClient
        Set GetForDetailReportByDoctorID = cmd.Execute(, DoctorID)
    End Function
      

  3.   

    Recordset 对象的游标类型会影响是否能够确定记录的数目。对仅向前游标,RecordCount 属性将返回 -1,对静态或键集游标返回实际计数,对动态游标取决于数据源返回 -1 或实际计数。