datareport的页标头里面放label，的动态添加数据的操作

Question

Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open ConnectString
rs.Open Sql, conn, adOpenDynamic, adLockReadOnly
Set DataReport2.DataSource = rs
DataReport2.Sections(2).Controls(1).Caption = Data_Consume.Value
DataReport2.Show (vbModal)
rs.Close
conn.CloseDataReport2.Sections(2).Controls(1).Caption = Data_Consume.Value
只有这种办法吗？这种办法太难理解了，为什么没有直接的Lalbel的属性呢？这样还要猜太麻烦了~~~~而且这个我有时候都找不到，郁闷~~~

Answer 1

你可以在报表中先添加一个公式
然后在程序中给它付值就行了。
rptform!Report1.ReportFileName = ReportPath & filename
rptform!Report1.Connect = "dsn=数据库名称;UID=" & loginuid & ";PWD=" & userpwd & ";"
rptform!Report1.Formulas(10) = "姓名= '" & xm.Caption & "'"
rptform!Report1.Destination = 1
rptform!Report1.Action = 1

Answer 2

以上公式写在什么事件里面啊？？？？？？？？这样可以代替
DataReport2.Sections(2).Controls(1).Caption = Data_Consume.Value
吗？以上好象是从数据库里提出数据，我需要的是随便动态的+些东西，比如说当前时间啊~求你写的详细点~~~~谢谢~~~