+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : حزمت برنامجي ويعمل تمام الى تقارير الطباعة (/showthread.php?tid=2620)
RE: حزمت برنامجي ويعمل تمام الى تقارير الطباعة - essawq - 23-04-14
للرفع
RE: حزمت برنامجي ويعمل تمام الى تقارير الطباعة - essawq - 24-04-14
للرفع
RE: حزمت برنامجي ويعمل تمام الى تقارير الطباعة - essawq - 26-04-14
للرفع
RE: حزمت برنامجي ويعمل تمام الى تقارير الطباعة - essawq - 28-04-14
يبدو انة لا يوجد حل؟؟
RE: حزمت برنامجي ويعمل تمام الى تقارير الطباعة - essawq - 30-04-14
للرفع
RE: حزمت برنامجي ويعمل تمام الى تقارير الطباعة - essawq - 02-05-14
للرفع
RE: حزمت برنامجي ويعمل تمام الى تقارير الطباعة - essawq - 05-05-14
للرفع
RE: حزمت برنامجي ويعمل تمام الى تقارير الطباعة - essawq - 08-05-14
للرفع
RE: حزمت برنامجي ويعمل تمام الى تقارير الطباعة - essawq - 14-05-14
للرفع
RE: حزمت برنامجي ويعمل تمام الى تقارير الطباعة - vbnet - 14-05-14
(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