[altoki939]

كرستال ريبورت مشكلة  هل كود فية مشكلة ؟

كود :

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



       Dim rpt1 As New ALLstaffInv80roll
       rpt1.Database.Tables(0).ApplyLogOnInfo(ConInfo)
       rpt1.SetDataSource(DataSetInvoices)

       ' Dim txt As CrystalDecisions.CrystalReports.Engine.TextObject
       ' txt = rpt1.ReportDefinition.ReportObjects("customerPar")
       '  txt.Text = TextBox1.Text
       Dim txtValue As String = TxTC.Text
       rpt1.SetParameterValue("Total", txtValue)

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

       '   Dim txtValue As String = TextBox1.Text
       '  rpt1.SetParameterValue("customerPar", txtValue)

       '  Dim employ As String = FormMain.XN.Text
       ' rpt1.SetParameterValue("employ", employ)

       '  Dim txtValue2 As String = LaBa.Text
       ' rpt1.SetParameterValue("Cusprics", txtValue2)

       rpt1.PrintToPrinter(1, True, 1, 1)