[devpos]

السلام عليكم

استخدم الكريستال ريبورت في طباعة تقرير فجأة اثناء العمل ع البرنامج اصبح عندما اقوم بعمل تقرير يقوم بتقرار كل قيمة مرتين على الطباعة 

هل يوجد احد صادف هذه المشكلة او عنده حل 

مشكورين اخواتي

كود :

DataSetInvoicesP.Clear()

   
       
SQLInvoicesP = "SELECT * FROM Invoices WHERE IDInvoices = " & Val(TxTIDInvoices.Text) & ""
           
     




       Dim DataAdapterInvoicesP As New OleDbDataAdapter(SQLInvoicesP, Conn)
       DataAdapterInvoicesP.Fill(DataSetInvoicesP, "Invoices")

       Conn.Close()



       Application.DoEvents()
       Dim ConInfo As New CrystalDecisions.Shared.TableLogOnInfo
       ConInfo.ConnectionInfo.ServerName = Application.StartupPath & "\DB.mdb"
       ConInfo.ConnectionInfo.DatabaseName = "DB.mdb"
       ConInfo.ConnectionInfo.UserID = "Admin"
       ConInfo.ConnectionInfo.Password = "867681234"


       Dim rpt1 As New CrystalReport1
       rpt1.Database.Tables(0).ApplyLogOnInfo(ConInfo)
       rpt1.SetDataSource(DataSetInvoicesP)

       Dim x As Integer
       x = GV.CurrentCell.RowIndex
     

       Dim objText As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.ReportDefinition.Sections(1).ReportObjects("Text9")
       objText.Text = (GV.Rows(x).Cells(6).Value)

       Dim objText2 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.ReportDefinition.Sections(1).ReportObjects("Text17")
       objText2.Text = (GV.Rows(x).Cells(5).Value)

       Dim frm As New FormPrint
       frm.CrystalReportViewer1.ReportSource = rpt1
       frm.CrystalReportViewer1.LogOnInfo(0).ConnectionInfo.Password = "867681234"
       frm.ShowDialog()

[Asem2]

(07-09-23, 04:33 PM)devpos كتب :

السلام عليكم

استخدم الكريستال ريبورت في طباعة تقرير فجأة اثناء العمل ع البرنامج اصبح عندما اقوم بعمل تقرير يقوم بتقرار كل قيمة مرتين على الطباعة 

هل يوجد احد صادف هذه المشكلة او عنده حل 

مشكورين اخواتي

كود :

DataSetInvoicesP.Clear()

   
       
SQLInvoicesP = "SELECT * FROM Invoices WHERE IDInvoices = " & Val(TxTIDInvoices.Text) & ""
           
     




       Dim DataAdapterInvoicesP As New OleDbDataAdapter(SQLInvoicesP, Conn)
       DataAdapterInvoicesP.Fill(DataSetInvoicesP, "Invoices")

       Conn.Close()



       Application.DoEvents()
       Dim ConInfo As New CrystalDecisions.Shared.TableLogOnInfo
       ConInfo.ConnectionInfo.ServerName = Application.StartupPath & "\DB.mdb"
       ConInfo.ConnectionInfo.DatabaseName = "DB.mdb"
       ConInfo.ConnectionInfo.UserID = "Admin"
       ConInfo.ConnectionInfo.Password = "867681234"


       Dim rpt1 As New CrystalReport1
       rpt1.Database.Tables(0).ApplyLogOnInfo(ConInfo)
       rpt1.SetDataSource(DataSetInvoicesP)

       Dim x As Integer
       x = GV.CurrentCell.RowIndex
     

       Dim objText As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.ReportDefinition.Sections(1).ReportObjects("Text9")
       objText.Text = (GV.Rows(x).Cells(6).Value)

       Dim objText2 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.ReportDefinition.Sections(1).ReportObjects("Text17")
       objText2.Text = (GV.Rows(x).Cells(5).Value)

       Dim frm As New FormPrint
       frm.CrystalReportViewer1.ReportSource = rpt1
       frm.CrystalReportViewer1.LogOnInfo(0).ConnectionInfo.Password = "867681234"
       frm.ShowDialog()

جربت الكود ولم تظهر المشكلة
إذا المشكلة في تصميم التقرير