关于DataReport的小问题！

2003-09-12 05:21:56 168 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

DataReport使用手记前几天，帮同事改一个VB的课业程序，具体任务就是在程序中添加报表功能，由于考虑到部署环境的问题，所以没有采用我以前惯用的Excel实现，而采用了同事提出的VB自带的DataReport实现，查到的资料大多数都是在DataReport数据源上连接DataEnvironment，MSDN也有这方面的一篇文章，可惜英文版和中文版一样的模糊，移到程序中也无法运行，后来根据实验中的错误提示在网上查阅读详情

1.我在页标头（Section2)中放了rptLabel.在细节(Section1)中放了rtpTextBox,但不知为什么跑表的时候，rptlabel 的下边和上边总不能紧贴着，有很宽的空。代码页下：
Dim mCtllab As RptLabel
For Each mCtllab In .Sections("Section2").Controls
If mCtllab.Name <> "labTile" Then
mCtllab.Alignment = rptJustifyCenter
mCtllab.BorderStyle = rptBSSolid'有边框
'mCtllab.Top = 1005 - 300
‘其中1005为section2的Height,300为rtplabel的height.
End If
Next mCtllab

Dim mCtltab As RptTextBox
For Each mCtltab In .Sections("Section1").Controls
mCtltab.Alignment = rptJustifyCenter
mCtltab.BorderStyle = rptBSSolid'有边框
mCtltab.Top = 0
Next mCtltab
-----------------------------------
2.怎么能得到当前纸张的宽度值，好让rptLabel,rptTextBox自动变化宽度来适应不同纸张的报表，（省着老出现“报表宽度＞纸张宽度这样了提示”.这样用户改变了纸张类型，横纵也不怕了！）这大家可能都碰到过吧，不知你们是怎么解决的。

...全文