30-11-24, 09:23 PM
كرستال ريبورت مشكلة هل كود فية مشكلة ؟
كود :
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)