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 tt As CrystalDecisions.CrystalReports.Engine.TextObject
tt = CType(rpt.Section2.ReportObjects("Text1"), TextObject)
tt.Text = Me.TextBox1.Text
Me.CrystalReportViewer1.ReportSource = rpt
5万+

被折叠的 条评论
为什么被折叠?



