datareport问题

Question

如何动态连接datareport？我现在作的程序需要打印多张报表。表头部分是相同的，只是连接的数据源不同。怎么编写代码进行连接？我试过用 set datareport1.datasource=dataenvironment1 datareport1.datamumber=dataenvironment1.command1 但是提示赋值无效。在dataenviornment里面写的connect是使用字符串生成器生成的连接sql库的代码。command1里的内容是sql语句 select * from 表名紧等回帖

Answer 1

参考： Private Sub DataReport_Initialize() 
    Dim AdoCon As New ADODB.Connection 
    Dim AdoRec As New ADODB.Recordset 
    Dim txt As New Collection 
    Dim ctl As Object 
     
    AdoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\a.mdb;Persist Security Info=False" 
    AdoRec.Open "select * from a", AdoCon 
    Set DataReport1.DataSource = AdoRec 
    For Each ctl In Me.Sections.Item("Section1").Controls 
        If TypeName(ctl) = "RptTextBox" Then 
            Select Case ctl.Name 
            Case "Text1" 
            ctl.DataField = AdoRec.Fields("aa").Name 
            Case "Text2" 
            ctl.DataField = AdoRec.Fields("bb").Name 
            Case "Text3" 
            ctl.DataField = AdoRec.Fields("cc").Name 
        End Select 
        End If 
    Next 
End Sub