小问题：如何将ADO.recordset绑定到ActiveReport控件

Question

在ActiveReport里用代码:public rstPrint as recordset
把程序的recordset传给它， set ar.rstPrint= rstNative
不要用绑定，在ActiveReport写代码生成报表，具体做法参照ActiveReport附带的源程序。

Answer 1

在activereport中放置一个ADO数据源, 把Field的datasource和datafield。
用代码设置：
set ActiveReport1.data.recordset=ado.recordset.clone

Answer 2

在activereport中放置一个ADO数据源, 设置Field的datasource和datafield。
再用代码设置：
set ActiveReport1.data.recordset=ado.recordset.clone
  

Answer 3

Option ExplicitPrivate cnnTemp As ADODB.Connection
Private rsTemp As ADODB.RecordsetPrivate Sub DataReport_Initialize()
    
    Set cnnTemp = New ADODB.Connection
    '先设置连接字符串，分配数据报表里的TextBox的数据字段属性    Set rsTemp = New ADODB.Recordset
    rsTemp.CursorLocation = adUseClient
    rsTemp.Open "SELECT * FROM [TableName]", cnnTemp
    
    Set Me.DataSource = rsTemp
    
End SubPrivate Sub DataReport_Terminate()    rsTemp.Close
    cnnTemp.Close
    
    Set rsTemp = Nothing
    Set cnnTemp = Nothing
    
End Sub