[asemshahen5]

أو أدمج هذا مع كودك :

PHP كود :

   Sub LoadTextToCrystalReportText(TextName As ArrayList, TextBoxText As ArrayList)
        Dim Rpt As New CrystalReport1
        Dim i As Integer = 0
        For Each str0 As String In TextName
            Dim Text1 As CrystalDecisions.CrystalReports.Engine.TextObject = Rpt.Section2.ReportObjects(str0)
            Text1.Text = TextBoxText(i).ToString
            i += 1
        Next
        CrystalReportViewer1.ReportSource = Rpt
        CrystalReportViewer1.Zoom(100%)
        CrystalReportViewer1.Refresh()
    End Sub 


و هذا كود الاستخدام :

PHP كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim TextName As New ArrayList
        Dim TextBoxText As New ArrayList
        TextName.Clear()
        TextBoxText.Clear()
        TextName.Add("Text1")
        TextName.Add("Text2")
        TextBoxText.Add(TextBox1.Text)
        TextBoxText.Add(TextBox2.Text)
        LoadTextToCrystalReportText(TextName, TextBoxText)
    End Sub