سؤال الي خبراء كريستال ريبورت

اين عملاقة الكريستاااااااااااااااال يا شباب الله يجزاكم الخير

اولا يا عزيزي نزل الكريستال يدعم الفيجوال بيسك

ثم في الفجوال اذهب الى ال referances واختار crystal report 9 active x designer design and runtime

بعد ذلك في المديول قم بعمل التالي:
Public CryApp As CRAXDDRT.Application
Public CryReport As CRAXDDRT.Report

وفي  الكوماند او مكان الامر الذي تريد
قم بكتابة التالي و ذلك لاعطاء المتغير قيمها
Private Sub Command1_Click()
Set CryApp = CreatObject("CrystalRunTime.Application")
Set CryReport = CryApp.OpenReport("myreport.rpt")
End Sub

و لعمل التصفية عليك كتابة الكود التالي:
CryReport.RecordSelectionFormula = ""
بحيث تضع جملة ال sql
ثم بعد ذلك تقوم بعرض التقرير بالطريقة التي تريد

ولكن لاتنسى كتابة الكود التالي في النهاية بعد عرض التقرير لكي لا يعطيك نتائج مكررة
set CryReport=nothing
Set CryApp=nothing

اسف ممكن الشرح غير كافي لكن سأرفق مثال فيما بعد