dim Crltdrpt as msdatareport.controls
set Crltdrpt=dataReport1.section1.controls
Crltdrpt.item("label1").caption="OK"

解决方案 »

  1.   

    Dr_J_Pctzd1.Sections(5).Controls("label6").Caption = Rs_J_Pctzd.Fields("jhq") & ""
            Dr_J_Pctzd1.Sections(5).Controls("label7").Caption = Rs_J_Pctzd.Fields("baoz") & ""
            Dr_J_Pctzd1.Sections(5).Controls("label8").Caption = Rs_J_Pctzd.Fields("beiz") & ""
            Dr_J_Pctzd1.Sections(5).Controls("label25").Caption = Rs_J_Pctzd.Fields("staffname") & ""
            Dr_J_Pctzd1.Sections(5).Controls("label26").Caption = Rs_J_Pctzd.Fields("rq") & ""
      

  2.   

    DataReport.Sections("报表页眉名称").Controls("标签名称").Caption = Text.Text
      

  3.   

    二位方法异曲同工,但我试了一下均提示未找到LABEL对象