(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