كيفية ربط الكريستال ريبوت بال Datagrid

جرب هذا الكود و سيعمل إن شاء الله

Dim miReport As CRAXDDRT.Report
	Dim miCRApp As New CRAXDDRT.Application
	Set miReport = miCRApp.OpenReport(App.Path & "\report1.rpt")

	With miReport
		.RecordSelectionFormula = "{data1.name}='" & combo1.Text & "'"
	End With

	With CRViewer1
		.ReportSource = miReport
		.ViewReport
		.Zoom "80"
		.Visible = True
	End With
	Set miCRApp = Nothing
	Set miReport = Nothing

في هذه الحالة نطبع القيمة الموجودة في الكمبوبوكس