请教高手：vb自带datareport有没有办法这样输出???

Question

data report一定需要绑定，如果你不需要绑定就随便绑个东西就可以了

Answer 1

没看明白，如果什么都不绑定的话，那你要显示什么？ 不是要显示recordset中的东西吗？

Answer 2

REPORT中必需要有DATASOURCE,你的DATASOURCE可以没有记录,
在DATASOURCE中不要有TEXT,所有的数据都用LABEL来显示,
在LOAD的时候赋值给它,
rpt.sections(x).controls(x).caption="显示的数据"

Answer 3

其实如果你真的输出的数据不多可以用直接打印FORM,
画一些IMAGE,LABEL,LINE...在FORM里,最好是平面的,
然后要打印的数据放在它们里面,
Me.PrintForm
我想这样会更加灵活.

Answer 4

谢谢大家！比如说我要显示一些统计信息，他们可能每一个都是一句sql语句的sum，avg选出来得，所以肯定不是更某一个recordset相关，当然也可以用form的printform方法，但是这样的话，好像无法实现打印预览功能把！

Answer 5

可以自己new一个recordset，里面的字段名字跟你在Details Section里面的rptTextBox的DataField属性相同然后你在程序中自己给这些字段负值，想咋整咋整最后设置该recordset为datareport的datasource

Answer 6

FORM显示出来也就是打印预览呀;你可以把所有SUM,AVG的结果存在一个临时表里,然后再查询该表,这不就是一个RECORDSET嘛.

Answer 7

OrchidPrinter可以, 网上的版本你不要付任何费用就可以一直使用(有提醒注册对话框)
http://www.csdn.net/cnshare/soft/12/12442.shtm

Answer 8

data report一定需要绑定，如果你不需要绑定就随便绑个 recordset 就可以了Private DataReport_Initialize()
'创建并打开一个任意的记录集,并将其设置为 DataReport 的数据源
Dim adoRecordset As New ADODB.Recordset
adoRecordset.Fields.Append "X", adVariant
adoRecordset.Open
Set Me.DataSource = adoRecordset
Dim adoRecordset As New ADODB.Recordset
adoRecordset.Fields.Append "X", adVariant
adoRecordset.OpenSet Me.DataSource = adoRecordset
《巧用 VB6 之 Data Report 实现图片(Picture)、图表(MsChart)的打印及预览》
http://www.triaton.com.cn/Private/Txt/ImageRpt.txt