如何使报表（datareport)获得控件（ex:文本框）中的参数，急！

Question

    Dr_Jc_Bhd.Sections(2).Controls("Label14").Caption = Text1.Text

Answer 1

'************打印代码供参考************
    Dr_Jc_Bhd.Sections(2).Controls("Label14").Caption = Rs_Jc_Bhd.Fields("hth") & ""
    Dr_Jc_Bhd.Sections(2).Controls("Label15").Caption = Rs_Jc_Bhd.Fields("invoice") & ""
    Dr_Jc_Bhd.Sections(2).Controls("Label16").Caption = Rs_Jc_Bhd.Fields("spmc") & ""
    Dr_Jc_Bhd.Sections(2).Controls("Label17").Caption = Rs_Jc_Bhd.Fields("fprq") & ""
    Dr_Jc_Bhd.Sections(2).Controls("Label18").Caption = Rs_Jc_Bhd.Fields("lcno") & ""
    Dr_Jc_Bhd.Sections(2).Controls("Label19").Caption = Rs_Jc_Bhd.Fields("destport") & ""
    Dr_Jc_Bhd.Sections(2).Controls("Label21").Caption = Rs_Jc_Bhd.Fields("baoz") & ""
    Dr_Jc_Bhd.Sections(2).Controls("Label24").Caption = Rs_Jc_Bhd.Fields("mt") & ""
    Dr_Jc_Bhd.Sections(2).Controls("Label33").Caption = Rs_Jc_Bhd.Fields("bz") & ""
    Dr_Jc_Bhd.Sections(2).Controls("Label25").Caption = Rs_Jc_Bhd.Fields("bianhao") & ""
    If Rs_Jc_Bhd.Fields("lffp") = 1 Then
        Dr_Jc_Bhd.Sections(2).Controls("label41").Caption = "YES"
    Else
        Dr_Jc_Bhd.Sections(2).Controls("label41").Caption = "NO"
    End If
    If Rs_Jc_Bhd.Fields("lfzc") = 1 Then
        Dr_Jc_Bhd.Sections(2).Controls("label42").Caption = "YES"
    Else
        Dr_Jc_Bhd.Sections(2).Controls("label42").Caption = "NO"
    End If
    If Rs_Jc_Bhd.Fields("zxbz") = 1 Then
        Dr_Jc_Bhd.Sections(2).Controls("label22").Visible = True
        Dr_Jc_Bhd.Sections(2).Controls("label12").Visible = False
        Dr_Jc_Bhd.Sections(2).Controls("label21").Visible = False
    Else
        Dr_Jc_Bhd.Sections(2).Controls("label12").Visible = True
        Dr_Jc_Bhd.Sections(2).Controls("label21").Visible = True
        Dr_Jc_Bhd.Sections(2).Controls("label22").Visible = False
    End If

Answer 2

第一种方法我已试过，可以！谢谢！参数很多时是不是要建立很多tem表？
第二种还在看，稍后，但不太懂！
能加多少我就加多少，thanks！

Answer 3

第一种方法我已试过，可以！谢谢！参数很多时是不是要建立很多tem表？
第二种还在看，稍后，但不太懂！
能加多少我就加多少，thanks！