ارجو العذر لكني احتاج مساعدة الشباب

اهلا وسهلا جميع

ماادري من وين ابدى لكن اعذروني

انا طالب علوم حاسوب واحصاء بجامعة الخرطوم السنة الرابعة

واجهتني مشكلة وكان مطلوب مني مشروع في الكلية مع ان الكلية حتى ما اعطتني كورس داتابيس او لغة برمحة

فكان لازم اعتمد على نفسي وبديت اخترتvb.net

بعد مشاورات مع الاخوان وقريت كتب واستفدت من منتداكم ومنتدي المطورين العرب كثير

واحمد لله من بين 148 مشروع جيت الرابع

لكن حسيت ان مشروعي رغم نتيجته وانه عجب الحهة اللي سوسته لها

مو جيد من ناحية الكود مثلا كانت السطور كثيرة اتحايلت علي اللغة كثير وخليت حاجات ورا واخرى مخفية

وكذا والحين مطلوب مني واحد ثاني وابغي اتلافى اللي راح فبسال من اشياء في برنامجي السابق

عشان تتعدل وكذا فارجو مساعدتكم

هذا كود حق تقارير مثلا

يجيب المعاملات المالة اللي صارت مع البنك من جدول البنك خلال فترة محددة بين تاريخين يحددهم المستخدم

بين DateTimePicker1 و DateTimePicker2

==============================================================

dim brv1 as new bankreportfrm

dim br as new bankreport

Try

brv1.CrystalReportViewer1.SelectionFormula = "{main.date} " & ">= #" & DateTimePicker1.Value.ToShortDateString & "# AND {main.date} " & "<= #" & DateTimePicker2.Value.ToShortDateString & "#;"

brv1.CrystalReportViewer1.ReportSource = br

()brv1.ShowDialog

Catch ex As OleDbException

( MsgBoxex.Message)

End Try

=================================================================

والكود الثاني يجيب معلومات شيك او ايصال مالي عن طريق ادخال رقمه في TextBox1

========================================================

dim brv1 as new bankreportfrm

dim br as new bankreport

Try

brv1.CrystalReportViewer1.SelectionFormula = "{bank.reciept}='" & TextBox1.Text & "'"

brv1.CrystalReportViewer1.ReportSource = br

() brv1.ShowDialog

Catch ex As OleDbException

() MsgBoxex.Message

End Try

===================================================

الكودين شغالين والحمد لله وادا في غلط يكون من عملية النقل هنا

انا الحين ابغى اربط اكودين مع بعض يعني احدد تاريخين ورقم ايصال ويدور في الشرطين سوا

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