Dim rpt As New CrystalReport1
Dim tt As CrystalDecisions.CrystalReports.Engine.TextObject
tt = CType(rpt.Section2.ReportObjects("Text1"), TextObject)
tt.Text = Me.TextBox1.Text
Me.CrystalReportViewer1.ReportSource = rpt
微信扫一扫
Dim rpt As New CrystalReport1
Dim tt As CrystalDecisions.CrystalReports.Engine.TextObject
tt = CType(rpt.Section2.ReportObjects("Text1"), TextObject)
tt.Text = Me.TextBox1.Text
Me.CrystalReportViewer1.ReportSource = rpt
相关推荐