[سعود الشامان]

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

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

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

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

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"

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