这样的话建议你不要把data report的数据源设为DataEnvironment,当然你可以在设计时先绑定DataEnvironment,设计好data report的样式,然后把所有控件(data report中的显示字段的控件)的datamember设为"",然后在代码中用sql选择需要显示的记录,把sql得到的记录集绑定到data report上即可。
比如:
myrs.open "select * from table where id=1",db
set datareport1.datasource=myrs
datareport1.show
比如:
myrs.open "select * from table where id=1",db
set datareport1.datasource=myrs
datareport1.show
Set DataReport1.DataSource = DataEnvironment1
DataReport1.Show
上面的rst是adodb.recordset
用一个sql查出想要打印的记录集rst来,
这样能够动态打印报表
dim rst as adodb.recordset
set rst =new adodb.recordsetSet DataEnvironment1.rsCommand1.DataSource = rst
Set DataReport1.DataSource = DataEnvironment1
DataReport1.Show