怎样编辑DataReport的一个标签Caption，按照网上的资料还是修改不了，帮我看看代码错在哪里了？

Question

一个FORM，有一个按钮  
Private  Sub  Command1_Click()  
Dim  Rp  As  DataReport1  
Set  Rp  =  New  DataReport1  
Rp.Show  
End  Sub  
 
然后在DataReport1中有代码如下：  
Private  Sub  DataReport_Activate()  
       DataReport1.Sections("Section1").Controls.Item("label1").Caption  =  gblName  
End  Sub  
 
我这里的  Section1是指细节中的一个标签，这个标签就是一个标签，没有绑定。  
 
我这里要显示的gblName是一个全局的变量值，不是数据库中的字段信息。  
 
请问，我以上代码和思路哪里有问题呢？？  
 
谢谢！

Answer 1

你应该把设置Label.Caption这一语句放到DataReport_Initialize事件里，而不是DataReport_Activate事件。

Answer 2

Private Sub DataReport_Initialize()
DataReport1.Sections("Section1").Controls("Label2").Caption = CStr(DataReport1.Width)
End Sub