如何动态修改DataReport1的标题头

Question

就是为了在打印DataReport1 时在上面一行显示“一共有*****，下面是详细清单”之类的话，可我不知道怎么在DataReport1里加上
哈，我以前不是做数据库的没用这过

Answer 1

Dim mytxt As CRAXDRT.TextObject                 '报表对象中的Textbox对象
Dim WithEvents CrSecPH As Section               '报表显示区对象
Set CrSecPH = carp.Sections("PageHeaderSection1")                '取报表头显示区对象
Set mytxt = CrSecPH.ReportObjects("mytxt")
Private Sub CrSecPH_Format(ByVal pFormattingInfo As Object)               '格式化报表头显示区中的对象
 mytxt.SetText "新标题" '格式化TextBox中的文本显示方式
End Sub

Answer 2

Private Sub Command1_Click()
DataReport1.Sections("section4").Controls("Label1").Caption = "在这里写你要写的东西。"
DataReport1.Show
End Sub

Answer 3

哈哈，isftest()兄说的对
我本来也这么想，不过以为这样动态不行，因为不会产生自动提示
加分