السلام عليكم
اولا اضف اثنان اداة كريستال ريبورت 4.6 فى الفورم 4 وهى بالاسم
crystal report control 4.6
ضع ذلك الكود فى كومنت الطباعة فى الفورم 4
'لعرض السجل الحالى
المشروع بعد التحديث
RAMY1988 كتب:السلام عليكم
اولا اضف اثنان اداة كريستال ريبورت 4.6 فى الفورم 4 وهى بالاسم
crystal report control 4.6
ضع ذلك الكود فى كومنت الطباعة فى الفورم 4
If Option1.Value = True Then
CrystalReport2.ReportFileName = App.Path & "/r2.rpt"
CrystalReport2.Action = 1
'لعرض جميع السجلات
ElseIf Option2.Value = True Then
CrystalReport1.ReportFileName = App.Path & "/r1.rpt"
CrystalReport1.Action = 1
'اذا لم يختار شئ
Else
MsgBox "ERROE"
End If'لعرض السجل الحالىالمشروع بعد التحديث
--------------------------------------------------------------------------------------------------------------
استاذي العزيز : RAMY1988
السلام عليكم ورحمة وبركاته
احب ان اقد الى الله ثم لكم عظيم الشكر والتقدير على سعادتكم والله يحفظكم ويرعاكم
ولكم مني فائق الاحترام والتقدير
وكل عام وانتم با الف صحه وعافيه يا رب
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…