[yousef]

السلام عليكم
ان افضل حل هو انشاء كريستال ريبورت عدد (2x)
صمم الاول لتناسب مع الخيار (false)
والثاني مع الخيار (true)

كود :

Dim e1 As New CrystalReport1
Dim e2 As New CrystalReport2
        
if ضع الشرط المطلوب =true then

        Print.CrystalReportViewer1.ReportSource = e2
        Print.CrystalReportViewer1.RefreshReport()
else
        Print.CrystalReportViewer1.ReportSource = e1
        Print.CrystalReportViewer1.RefreshReport()
end if