[essawq]

للرفع

[essawq]

للرفع

[essawq]

للرفع

[essawq]

يبدو انة لا يوجد حل؟؟

[essawq]

للرفع

[essawq]

للرفع

[essawq]

للرفع

[essawq]

للرفع

[essawq]

للرفع

[vbnet]

(14-05-14, 06:53 AM)essawq كتب : للرفع

طريقتك بالبرمجة غير صحيحة،

أدرج ملف التقرير CrystalReport1.rpt في المشروع ثم استخدم هذا الأسلوب

كود :

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

    If Me.TextBox1.Text.Trim = "" Then
        MsgBox("ادخل الاسم ليتم جلب البيانات للطباعة", MsgBoxStyle.Information, "تنبيه")
        TextBox1.Focus()
        Exit Sub
    End If

    ' هنا نقوم بالاستعلام وتعبئة الداتاتيبل
    Dim sql As String = " SELECT * FROM [table1] WHERE [name] = @name "
    Dim comm As New SqlCommand(sql, Con)
    comm.Parameters.AddWithValue("@name", Me.TextBox1.Text.Trim)

    Dim da As New SqlDataAdapter(comm)
    Dim dt As New DataTable
    da.Fill(dt)

    ' هنا نهيئ التقرير لربطه بالداتاتيبل
    Dim rpt As New CrystalReport1
    rpt.SetDataSource(dt)

    ' هنا نقوم بربط عارض التقارير بالتقرير المعبئ بالبيانات
    CrystalReportViewer1.ReportSource = rpt

End Sub