我认为你可以在报表页注脚处击右键,弹出菜单,选择插入控件菜单条后的当前日期。即Label1.Caption="%d"

解决方案 »

  1.   

    DataReport1.Sections("section2").Controls.Item("Label1).Caption = 等于后面可以是任何字段或变量,例如 =Date(系统日期)
      

  2.   

    Me.Sections(2).Controls("label1").Caption = CStr(Year(repDate)) & "年" & CStr(Month(repDate)) & "月" & CStr(Day(repDate)) & "日"
    这是我以前用过的,你可以试一下,repdate为日期类型变量。
    也可以这样:
    Me.Sections(2).Controls("label1").Caption = CStr(repDate)