07-09-23, 04:33 PM
السلام عليكم
استخدم الكريستال ريبورت في طباعة تقرير فجأة اثناء العمل ع البرنامج اصبح عندما اقوم بعمل تقرير يقوم بتقرار كل قيمة مرتين على الطباعة
هل يوجد احد صادف هذه المشكلة او عنده حل
مشكورين اخواتي
كود :
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()