السلام عليكم ورحمة الله وبركاته
كود من اجل ان يعمل كريستال ريبورت بشكل صحيح اذا كنت تستخدم سيرفر وبرنامجك يعمل باكثر من جاهاز
الدعاء يكفي
Try
Dim ciReportConnection As New ConnectionInfo
ciReportConnection.ServerName = “اسم السيرفر”
ciReportConnection.DatabaseName = “اسم قاعدة البيانات”
ciReportConnection.UserID = “sa”
ciReportConnection.Password = “pass”
Dim DT As New DataTable
DT.Clear()
DT = ClS_BU000_.BU_PRT(TXT_TypeGUID.Text, Val(TXT_ID.Text))
If DT.Rows.Count > 0 Then
Dim rptDoc As CrystalDecisions.CrystalReports.Engine.ReportDocument
rptDoc = New CrystalReport1
For Each table As Table In rptDoc.Database.Tables
table.LogOnInfo.ConnectionInfo = ciReportConnection
table.ApplyLogOnInfo(table.LogOnInfo)
Next
For Each subrep As ReportDocument In rptDoc.Subreports
For Each table As Table In subrep.Database.Tables
table.LogOnInfo.ConnectionInfo = ciReportConnection
table.ApplyLogOnInfo(table.LogOnInfo)
Next
Next
rptDoc.SetDataSource(DT)
Dim FRM_PRINT As New FRM_PRINT
FRM_PRINT.CrystalReportViewer1.ReportSource = rptDoc
FRM_PRINT.ShowDialog()
End If
Catch ex As Exception
MsgBox(ex.ToString)
End Try
