منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
عرض البيانات من الداتا قريد فيو الى الادوات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : عرض البيانات من الداتا قريد فيو الى الادوات (/showthread.php?tid=39399)



عرض البيانات من الداتا قريد فيو الى الادوات - aftfm - 27-08-21

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


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

في الاجراء 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")

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


RE: عرض البيانات من الداتا قريد فيو الى الادوات - ابو انس - 27-08-21

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


RE: عرض البيانات من الداتا قريد فيو الى الادوات - aftfm - 27-08-21

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

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

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

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


RE: عرض البيانات من الداتا قريد فيو الى الادوات - ابو انس - 27-08-21

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

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

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

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

اداة التاريخ شيء والتيكست بوكس شيء اخر
على كل حال
كود :
txtUName.Text = dgv(0, dgv.CurrentRow.Index).Value
هذا الكود يجلب القيمة من الداتا جريد فيو الى التيكست بوكس سواء كانت رقم او تاريخ او نص او لا شيء (فراغ) بدون خطأ


RE: عرض البيانات من الداتا قريد فيو الى الادوات - aftfm - 27-08-21

جزيت خيراً

ابو انس


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

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

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


RE: عرض البيانات من الداتا قريد فيو الى الادوات - ابو انس - 28-08-21

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


RE: عرض البيانات من الداتا قريد فيو الى الادوات - abomo3ath - 28-08-21

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

تستطيع تجاوز تنفيذ الكود الخاص بالتاريخ من خلال التحقق منه إذا كان فارغ يتجاوز تنفيذه أما إذا كان غير فارغ ينفذ الكود وذلك من خلال استخدام جملة 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



RE: عرض البيانات من الداتا قريد فيو الى الادوات - aftfm - 28-08-21

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