如何将Activreport报表中的列表数据转为记录集?

Question

不读请ADO控件的数据,一行一行的读出来,如何实现?

Answer 1

把ActiveReport中的数据反插入到Recordset中？
    Dim rsDisp As ADODB.Recordset
    
    Set rsDisp = New ADODB.Recordset 
    '=============以下代码创建一个空的可更新的记录集。============
    With rsDisp
        .Fields.Append "OperatorName", adBSTR
        .Fields.Append "DaySum", adCurrency
        .Fields.Append "UntilDaySum", adCurrency
        .CursorType = adOpenStatic
        .Open
    End With 
   '===========================End=================

Answer 2

楼上方法也可以，其实将产生activereport数据的SQL语句找出来就可以