[aftfm]

السلام عليكم ورحمة الله وبركاته


واجهتني مشكلة في عرض البيانات من اداة الداتا جريد الى الادوات 
وبالتحديد في حالة إذا كان الحقل من نوع تاريخ لا يقبل إذا كان التاريخ فارغ

في الاجراء DataGridView1_Cellclick

كود :

txtUName.Text= DataGridView1(0,e.RowIndex).Value
txtIdNum.Text=DataGridView1(1,e.RowIndex).Value

dim MyDate as Date = DataGridView1(2,e.RowIndex).Value
txtMyDate.text= MyDate.ToString("yyyy/MM/dd")

انا ا ستخدم هذا الكود
في مربع النص الخاص بالتاريخ تظهر المشكلة

[ابو انس]

وعليكم السلام ورحمة الله وبركاته
ممكن توضح سؤالك لو سمحت
انا ارى في الكود ثلاث تيكست بوكس
ماالذي تريده بالضبط

[aftfm]

الف شكر على ردك

لدي وليكن اكثر من تيكست بوكس
من ضمنهم اداة تاريخ

وفي قاعدة البيانات تم حفظ البيانات الا ان التاريخ فارغ لم يتم حفظة

في حالة التاريخ فارغ تظهر مشكلة في عرض البيانات من الجريد الى الاداة الخاصة بالتاريخ

[ابو انس]

(27-08-21, 09:21 PM)aftfm كتب : الف شكر على ردك

لدي وليكن اكثر من تيكست بوكس
من ضمنهم اداة تاريخ

وفي قاعدة البيانات تم حفظ البيانات الا ان التاريخ فارغ لم يتم حفظة

في حالة التاريخ فارغ تظهر مشكلة في عرض البيانات من الجريد الى الاداة الخاصة بالتاريخ

اداة التاريخ شيء والتيكست بوكس شيء اخر
على كل حال

كود :

txtUName.Text = dgv(0, dgv.CurrentRow.Index).Value

هذا الكود يجلب القيمة من الداتا جريد فيو الى التيكست بوكس سواء كانت رقم او تاريخ او نص او لا شيء (فراغ) بدون خطأ

[aftfm]

جزيت خيراً

ابو انس


تم تجربة الكود

txtUName.Text = dgv(0, dgv.CurrentRow.Index).Value

ولا تزال يظهر الخطأ في ما اذا كان حقل التاريخ فارغ

[ابو انس]

في المرفقات مثال بسيط يمثل الكود الذي اتحدث عنه ولا يوجد اي خطأ

[abomo3ath]

وعليكم السلام ورحمة الله وبركاته

تستطيع تجاوز تنفيذ الكود الخاص بالتاريخ من خلال التحقق منه إذا كان فارغ يتجاوز تنفيذه أما إذا كان غير فارغ ينفذ الكود وذلك من خلال استخدام جملة IF

كود :

txtUName.Text= DataGridView1(0,e.RowIndex).Value
txtIdNum.Text=DataGridView1(1,e.RowIndex).Value

if DataGridView1(2,e.RowIndex).Value is DBnull.value then

Else
dim MyDate as Date = DataGridView1(2,e.RowIndex).Value
txtMyDate.text= MyDate.ToString("yyyy/MM/dd")
end if

[aftfm]

بارك الله فيكم والف شكر على اهتمامكم