有关VB报表的一大堆问题

[yun_yxr]

1.用crystal report时如何将连接的数据库设为相对路径比如APP.PATH 　　　& ".\DATA\*.MDB"，在控件属性中设它的数据库路径时报表样式为什么会不起作用？
2.用crystal report如何在设计时定义纸张大小，如何定义横打或竖打
3.用crystal report能够在VB运行时定义它的报表样式吗，麻烦点也行
4.用data report怎样能够在页标题上放一个和数据库相关联的字段，如果不行如何
根据数据库内容动态改变页标题的内容
5.用data report好象是可以通过section来编程的，如何编写能给一段代码吗？
6.用data report如何将它的单位设为厘米可以方便进行控制，如何强制分页
总之我的报表是希望能够动态进行格式定义，而且可以让用户保存这种格式，用CRYSTAL好还是用DATA　REPORT好些而且我不想让数据库报表使用绝对路径因为发布时会有问题，
可是DATA REPORT好象不能放置类似CHART之类的控件打印条形图或是饼图
如果那位有这方面的代码，麻烦发一份给我好吗
我的邮箱[e-mail]
万分感激

[BenBenBoy]

4.用data report怎样能够在页标题上放一个和数据库相关联的字段，如果不行如何
根据数据库内容动态改变页标题的内容
--------------
方一个rptLabel然后动态修改之

[qiqif]

利用分组可以实现（分组标头）

[yun_yxr]

4.用data report怎样能够在页标题上放一个和数据库相关联的字段，如果不行如何
根据数据库内容动态改变页标题的内容
--------------
方一个rptLabel然后动态修改之
---------------------
如何动态修改能给个例子吗

[qiqif]

with 数据环境.rsCommand名
If .State = adStateOpen Then .Close
.Source = SQL语句
.Open 打开想输出的数据库数据项以便输出
End With
With 报表名
　.DataSource=数据环境
　.DataMember=Command名 这两行也可固定设好而不必每次设置
　设置页表头部分(RpttLabel…为报表控件名)
　.Sections(2).Controls("RptLabelPage").Caption = "共%P页第%p页"
　.Sections(2).Controls("RptLabelDate").Caption = "打印日期：%D"
　.Sections(3).Controls("RptLabel1").Left=…
　…
　设置细节部分(RptShapeX、RptTextBoxX为报表控件名)
　.Sections(3).Controls("RptShape1").Left=…
　.Sections(3).Controls("RptShape1").Top=…
　.Sections(3).Controls("RptShape1").Height=…
　.Sections(3).Controls("RptShape1").Width=…
　.Sections(3).Controls("RptTextBox1").DataMember=Command名
　.Sections(3).Controls("RptTextBox1").DataField=字段1
　.Sections(3).Controls("RptTextBox1").Font.Name=…
　…
　.Sections(3).Controls("RptShapeN").Visible=False
　.Sections(3).Controls("RptTextBoxN").Visible=False
　…
　. Sections(3).Height=计算出的或固定的细节高度
动态调整报表标题(RptLabelTitle为报表标签控件名)
　.Sections(2). Controls("RptLabelTitle").Left=…
　…
　.Sections(2). Controls("RptLabelTitle").Alignment=…
　…
　调整完毕后
　.Show 或 .PrintReport
End With

[qiqif]

强制分页则在Sections的属性中有forcepagebreak

[Steve_csdn]

晕，up1

[qiqif]

不是页标题而是分组标头
页标题当然不行,不用写代码,只要分组后在分组标头中让rpttext和数据库分组内容直接连接就行了