الكريستال ريبورت بدون قاعدة بيانات

كود :

            ' أسم التقريرdorh_basic_data_print_ts7e7hoeh 

            Dim rpt As New dorh_basic_data_print_ts7e7hoeh

            rpt.SetDataSource(ds)

            Dim ParamValue As New CrystalDecisions.Shared.ParameterValues()

            Dim ParamName As New CrystalDecisions.Shared.ParameterDiscreteValue()

            'تغير قيمة TextBox1.Text بالقيمة التي تريد أدخالها

            ParamName.Value = TextBox1.Text

            ParamValue.Add(ParamName)

            ' أسم الباريميتر al3zabe والذي سوف اضعه في التقرير'

            rpt.DataDefinition.ParameterFields("al3zabe").ApplyCurrentValues(ParamValue)





            '  أسم الفورم dorh_basic_data_print_hoehD'

            dorh_basic_data_print_hoehD.CrystalReportViewer1.ReportSource = rpt

            dorh_basic_data_print_hoehD.Show()

            connn.Close()

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim rpt1 As New Crystal1

    Dim Text1 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text1")

    Text1.Text = Me.TextBox1.Text

    Dim Text2 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text2")

    Text2.Text = Me.TextBox2.Text

    Dim Text3 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text3")

    Text3.Text = Me.TextBox3.Text

    Dim Text4 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text4")

    Text4.Text = Me.TextBox4.Text

    Dim Text5 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text5")

    Text5.Text = Me.TextBox5.Text

    Dim Text6 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text6")

    Text6.Text = Me.TextBox6.Text

    Dim Text7 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text7")

    Text7.Text = Me.TextBox7.Text

    Dim Text8 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text8")

    Text8.Text = Me.TextBox8.Text

    Dim Text9 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text9")

    Text9.Text = Me.TextBox9.Text

    Dim Text10 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text10")

    Text10.Text = Me.TextBox10.Text

    Dim Text11 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text11")

    Text11.Text = Me.TextBox11.Text

    Dim Text12 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text12")

    Text12.Text = Me.TextBox12.Text

    Dim Text13 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text13")

    Text13.Text = Me.TextBox13.Text

    Dim Text14 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text14")

    Text14.Text = Me.TextBox14.Text

    Dim Text15 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text15")

    Text15.Text = Me.TextBox15.Text

    Dim Text16 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text16")

    Text16.Text = Me.TextBox16.Text

    Dim Text17 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text17")

    Text17.Text = Me.TextBox17.Text

    Dim Text18 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text18")

    Text18.Text = Me.TextBox18.Text

    Dim Text19 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text19")

    Text19.Text = Me.TextBox19.Text

    Dim Text20 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text20")

    Text20.Text = Me.TextBox20.Text

    Dim frm As New Form1

    frm.CrystalReportViewer1.ReportSource = rpt1

    Me.Dispose()

    frm.Show()

End Sub