报表中怎么加入变量？？

Question

用鼠标从设计器中把command中的各字段拖拉到报表中!

Answer 1

在显示报表前对Label控件赋值。

Answer 2

Private Sub Cktzd_Report_GetLable()
    Dr_J_Cktzd.Sections(2).Controls("Label1").Caption = Rs_J_Cktzd.Fields("jf") & ""
    Dr_J_Cktzd.Sections(2).Controls("Label2").Caption = Rs_J_Cktzd.Fields("df") & ""
    Dr_J_Cktzd.Sections(2).Controls("Label3").Caption = Rs_J_Cktzd.Fields("jhkcm")
    Dr_J_Cktzd.Sections(2).Controls("Label4").Caption = Rs_J_Cktzd.Fields("hth")
    Dr_J_Cktzd.Sections(2).Controls("Label5").Caption = Rs_J_Cktzd.Fields("ckfph") & ""
    Dr_J_Cktzd.Sections(2).Controls("Label6").Caption = Rs_J_Cktzd.Fields("date")
    Dr_J_Cktzd.Sections(2).Controls("Label7").Caption = Rs_J_Cktzd.Fields("ckzh")
    Dr_J_Cktzd.Sections(2).Controls("Label8").Caption = Rs_J_Cktzd.Fields("ywzh")
    
    Dr_J_Cktzd.Sections(5).Controls("Label9").Caption = Rs_J_Cktzd.Fields("ckfh") & ""
    Dr_J_Cktzd.Sections(5).Controls("Label10").Caption = Rs_J_Cktzd.Fields("jz1") & ""
    Dr_J_Cktzd.Sections(5).Controls("Label11").Caption = Rs_J_Cktzd.Fields("ywzd") & ""
    Dr_J_Cktzd.Sections(5).Controls("Label36").Caption = Rs_J_Cktzd.Fields("jz2")
    Dr_J_Cktzd.Sections(5).Controls("Label37").Caption = Rs_J_Cktzd.Fields("bz")
End Sub

Answer 3

还有点问题，zd.Sections(2).Controls("Label7").Caption = p_user
没有效果，当输至zd.Sections(2).Controls ("label7")时就没有即时的
提示信息了，这个代码写在哪里没有什么关系吧？