+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مشكلة عرض في Crystal Reports (/showthread.php?tid=47404)
مشكلة عرض في Crystal Reports - senussi_gtR - 27-10-23
السلام عليكم
عندي برنامج صغير للمخزن فيه صادر والوارد مشكلة في طباعة التقرير علي Crystal Reports لا يعرض بيانات من قاعدة بيانات نوع اكسس عند بحت مابين تاريخين او تاريخ واحد يضهر صفحة بيضاء فيها رؤس حقول فقط لم اعرف اين خلل وهذكود مستخدم اصدار vb.net 2015
وشكرا لكل من يمر علي سؤلي
PHP كود :
Dim m As String
m = "{incoming.rfna}like'" & Trim(TextBox1.Text) & "' AND {incoming.detday} >= #" & Format(DateTimePicker1.Value.ToShortDateString) & "#" & " AND {incoming.detday} <= #" & Format(DateTimePicker2.Value.ToShortDateString) & "#" + ""
Dim a As New Form1
Dim cr As New CrystalReport1
a.CrystalReportViewer1.SelectionFormula = m
a.CrystalReportViewer1.ReportSource = cr
a.ShowDialog()
PHP كود :
Dim m As String
m = "{incoming.rfna}like'" & Trim(TextBox1.Text) & "' AND {incoming.detday} = #" & Format(DateTimePicker1.Value.ToShortDateString) & "#" + ""
Dim a As New Form1
Dim cr As New CrystalReport1
a.CrystalReportViewer1.SelectionFormula = m
a.CrystalReportViewer1.ReportSource = cr
a.ShowDialog()
RE: مشكلة عرض في Crystal Reports - kharbatha - 01-11-23
السلام عليكم
تفضل اخي
RE: مشكلة عرض في Crystal Reports - senussi_gtR - 01-11-23
(01-11-23, 09:58 AM)kharbatha كتب : السلام عليكم
تفضل اخي
شكرا وبارك الله فيك
RE: مشكلة عرض في Crystal Reports - senussi_gtR - 05-11-23
(01-11-23, 09:58 AM)kharbatha كتب : السلام عليكم
تفضل اخي
السلام عليكم
شكر مر اخر علي حل مشكة وحاليا وجهت مشكلة مر اخر يعرض في كرستل ريبورت راس جدول في ريبورت لعرض 3 جدول وعدلة كود ومزال نفس شى وهذا كود:
وشكرا وبارك الله فيك وفي اعضاء منتدى الكرام
PHP كود :
Dim queryAdapter As New OleDbDataAdapter("SELECT warehouse.rfna, warehouse.product, warehouse.company, warehouse.type, warehouse.expired, warehouse.quantity, incoming.quantity AS Expr1, outgoing.quantity AS Expr2 FROM ((warehouse INNER JOIN incoming ON warehouse.rfna = incoming.rfna) INNER JOIN outgoing ON warehouse.rfna = outgoing.rfna)", cn)
' Fill a new DataTable with the data from the query table adapter.
Dim dt As New DataTable
queryAdapter.Fill(dt)
' Create a new CrystalReport object.
Dim cr As New Crystal3
' Set the data source for the CrystalReport object.
cr.SetDataSource(dt)
' Display the CrystalReport object.
Dim a As New Form1
a.CrystalReportViewer1.ReportSource = cr
a.CrystalReportViewer1.Refresh()
a.ShowDialog()