CheckBox

السلام عليكم ..

1. رسالة الخطأ تقول أن قيمة الحقل هي null في قاعدة الييانات ..
2. طريقة التحويل هي :

   CheckBox1.Checked = If((tbPer.Rows(lnCont).Item("preccAllergy") Is DBNull.Value), False, Boolean.Parse(tbPer.Rows(lnCont).Item("preccAllergy").ToString()))

ملاحظة :

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

شكرا لك أخي

قيمة الحقل رقمية من نوع بايت

ولا أستطيع تغييرها للمنطقية في حقل قاعدة البيانات لأنها مليئة و مصممة لبرنامج فيجوال بيسيك 6

فكيف الحل

أيش محتويات الحقل ذو القيمة الرقمية ؟؟

السلام عليكم ..

1. إذا كانت رقمية .. فما المشكلة .. الكود :

     If Not tbPer.Rows(lnCont).Item("preccAllergy") Is DBNull.Value Then
           	Dim x As Byte = Byte.Parse(tbPer.Rows(lnCont).Item("preccAllergy").ToString())
           	CheckBox1.Checked = If(x = 1, True, False)
       	Else
           	CheckBox1.Checked = False
   
       	End If

شكرا لكم

تم نجاح الكود

ممتن لكم

بامكانك استخدام الدالة CBool لتقوم بالمهمة .

كل الشكر لكم