كيفية عرض التقارير على الشبكة باستخدام sql2000

السلام عليكم , هذا الكود لوضع قيمة اتصال التقرير بالمستضيف .

#Region " Report Connections "

	Private Sub InitilizeReportConnection()

		' Declare variables used to set the proper database connection information.
		Dim tbC As CrystalDecisions.CrystalReports.Engine.Table
		Dim tli As CrystalDecisions.Shared.TableLogOnInfo


		' Assign report connection
		For Each tbC In rptObjects.Database.Tables
			tli = tbC.LogOnInfo
			With tli.ConnectionInfo
				.ServerName = My.Settings.GetServerName  'GetServerName = "SQLInstance Name.
				.DatabaseName = My.Settings.GetDataBaseName ' getDataBaseName = "SQLData"
			End With
			tbC.ApplyLogOnInfo(tli)
		Next tbC

	End Sub

#End Region

بالتوفيق إن شاء الله.

ما هو ال rptObjects الموجود فى الكود فى جمله الfor each ؟

شكرا

هل من رد

المتغير هو كائن للتقرير المستخدم على ماأظن