DataReport报表不要做成绑定DataEnvironment数据环境 Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset cn.open .... set rs=cn.Execute("....")Set DataReport.DataSource = rs 然后在报表加入text控件 在报表的Initialize事件中加入 DataReport.Sections("section1").Controls("text1").DataField = frprintreport.rs(0).Name DataReport.Sections("section1").Controls("text2").DataField = frprintreport.rs(1).Name .......
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.open ....
set rs=cn.Execute("....")Set DataReport.DataSource = rs
然后在报表加入text控件
在报表的Initialize事件中加入
DataReport.Sections("section1").Controls("text1").DataField = frprintreport.rs(0).Name
DataReport.Sections("section1").Controls("text2").DataField = frprintreport.rs(1).Name
.......