Dynamic reportviewer

السلام عليكم

فكرة عمل حلقة Loop ليست بالفكرة الرائدة, و يخلفها عملية الاختبار عبر If statement على سبيل المثال.

نستخدم التعبير -1 لتجاهل هذا المُمرر Parameter شاهد النصوص البرمجية لذلك.

هذه النصوص تكتب في الـ Record Selection .

(({Main.FollowDate}>= {?@SDate}and {Main.FollowDate}<= {?@EDate})
or ({?@WithDate}= False)) and
(({Main.AccidentKind} ={?@CriteriaID}) or ({?@All}=-1)) and
(
(({Main.SimilarityResult}={?@MoreDtailsSimResults}) or ({?@MoreDtailsSimResults}=5)) and
(({Main.ExpertName} = {?@MoreDtailsExperts}) or ({?@MoreDtailsExperts}=-1)) or ({?@WithMoreDetails} =false)) and
((Time({Main.FollowTime}) >= Time({?@STime}) and Time({Main.FollowTime}) <= Time({?@ETime})) 
or ({?@WithTime}=False))

شاهد الصورة في المرفقات.

النصوص البرمجية التي يجب أن تكتب عبر البرنامج تكون كالتالي:

With rptObjects

				'Assign report author
				.SummaryInfo.ReportAuthor = "Nasser Alghumlasi"

				'Supply Title name
				.SummaryInfo.ReportTitle = cboxLoadData.Text

				'Supply Variable ID param
				.SetParameterValue("@CriteriaID", cboxLoadData.SelectedValue)

				'Supply All Data if no one spesific.
				.SetParameterValue("@All", cboxLoadData.SelectedValue)

				'Supply Start Date .
				.SetParameterValue("@SDate", dtpSDate.Value.ToShortDateString)

				'Supply End Date .
				.SetParameterValue("@EDate", dtpEDate.Value.ToShortDateString)

				'Enable or disable dates search keywords .
				.SetParameterValue("@WithDate", chkBoxWithDate.Checked)

				'Supply Start Time .
				.SetParameterValue("@STime", dtpSTime.Value.ToShortTimeString)

				'Supply End Time .
				.SetParameterValue("@ETime", dtpETime.Value.ToShortTimeString)

				'Enable or disable times search keywords .
				.SetParameterValue("@WithTime", chkBoxWithTime.Checked)


				'++++++++++++++++++++++++++++++++++++++++++++++++++++++
				'More Details search Keywords, Date updated 1-3-2006  +
				'++++++++++++++++++++++++++++++++++++++++++++++++++++++

				'Enable or disable More Details search keywords .
				.SetParameterValue("@WithMoreDetails", chkBoxWithMoreDetails.Checked)

				'Supply MoreDetailsExperts .
				.SetParameterValue("@MoreDtailsExperts", Me.cboxMoreDetailsExperts.SelectedValue)

				'Supply MoreDetailsSimResults .
				.SetParameterValue("@MoreDtailsSimResults", Me.cboxMoreDetailsSimResults.SelectedValue)



				' 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
						.DatabaseName = My.Settings.GetDataBaseName
					End With
					tbC.ApplyLogOnInfo(tli)
				Next tbC

			End With


			'Assign report source
			CRV.ReportSource = rptObjects
			CRV.Refresh()

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