[محمود بكرى]

أعتذر منكم إخوتي فصل النت عندي البارح

وأشكركم جزيل الشكر

الآن وصلت المعلومه وهي ان الحفظ في القاعدة بالميلادي لكن العرض و الادخال هجري وفعلا ضبطت

لكن تبقى لدي بعض الإشكاليات :

1 - التاريخ يظهر في الداتا جريد بصيغة الميلادي ( اريده هجري )

2 - وضعت هنا خيار اظهار ارقام المراجعين اللذين لديهم موعد بعد يومين
لكن المشكله عند إضافة مراجع جميع الأرقام يتم إظهارها في الليست بوكس





وهذا الكود تحت زر موافق

كود :

       Dim dfrom As Date = Now.Date.ToShortDateString
       dt = New DataTable
       da = New OleDb.OleDbDataAdapter("Select * from Patient_data", con)
       da.SelectCommand.CommandText = "select * from Patient_data where Data_mo3d=@Data_mo3d"
       da.SelectCommand.Parameters.AddWithValue("@Data_mo3d", dfrom.AddDays(Val(TextBox7.Text)))
       da.Fill(dt)
       ListBox1.DataSource = dt
       ListBox1.DisplayMember = "Pa_Phone"

المشروع بالمرفقات

السلام عليكم اخي سعود  المرفق حقك شغال تمام وكان عندك المشكلة فى ان التاريخ بيظهر ميلادي وقد عدلت ذلك فى المرفق اما عند الاضافة وظهور اكثر من رقم بالليست لم تحدث معي او انى فهمت خطاء 
المرفق

  code_1.rar (الحجم : 314.58 ك ب / التحميلات : 71)