就在 表头(Report Header) 区域 码放大量控件(RptText除外)如:Label
Public a as String '可在标准模块中声明
a="Test"Private Sub DataReport_Initialize()Me.Sections.Item("SectionX").Controls.Item("LabelX").Caption= a
'a 为一全局变量
...
End Sub参阅 《VB 6之数据报表使用技巧》(http://media.ccidnet.com/ciw/871/b1301.htm)
欢迎访问 http://simideal.top263.net/Main.htm