[senussi_gtR]

السلام عليكم

عندي برنامج صغير للمخزن فيه صادر والوارد مشكلة في طباعة التقرير علي 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() 


---

[kharbatha]

السلام عليكم
تفضل اخي

[senussi_gtR]

(01-11-23, 09:58 AM)kharbatha كتب : السلام عليكم
تفضل اخي

شكرا وبارك الله فيك

[senussi_gtR]

(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()