أرجو من سيادتكم حل هذه المشكلة
الريبورت يظهر بالداتا ولكن المشكلة تظهر عبارة
Object reference not set to an instance of an object
فوق التقرير، وهى تسبب فى أن أيقونة الطباعة لاتعمل وكذلز زر إكسبورت
Dim objReport As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim ConInfo As New CrystalDecisions.Shared.TableLogOnInfo
Dim intCounter As Integer
Connect(Cmd, DA, "HS_Report_View_Cry")'للإتصال بجدول فى قاعدة البيانات ووضعه فى الداتا ست
objReport.Load(URL_CRReports & "rpthospital.rpt")
conInfo.ConnectionInfo.UserID = "sa"
ConInfo.ConnectionInfo.Password = "sa"
ConInfo.ConnectionInfo.ServerName = "server"
ConInfo.ConnectionInfo.DatabaseName = "cmp360"
For intCounter = 0 To objReport.Database.Tables.Count - 1
objReport.Database.Tables(intCounter).ApplyLogOnInfo(ConInfo)
Next
rptViewer.ReportSource = objReport