مشكلة في اسناد قيمة فارغة الى حقل !

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

أخي العزيز: من المفترض أن لا تحدث تلك المشكلة ولكن ربما كانت قيمة الخلية المدخلة أكبر من عدد الأعمدة لأن الترقيم يبدأ من الصفر لأن العامود الرابع هو فعلياً رقمه 3
ثانياً يجب الانتباه إلى أنك في محاولتك الالتفاف على المشكلة استخدمت علامة التنصيص للتأكد من أن الخلية خالية ، هذا سينفع إذا قام المستخدم بحذف محتوى الخلية أما إذا لم يدخل فيها قيمة أصلاً فإن قيمة تلك الخلية ستكون NULL وليس فراغ "" وبالتالي لن تستفيد من تلك المقارنة. لان هناك فرق بين القيمتين أي القيمة Null والقيمة فراغ ""

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        For rowNo = 0 To 10
            DataGridView1.Rows.Add()
            DataGridView1.Item(0, rowNo).Value = rowNo
            If rowNo <> 3 Then
                DataGridView1.Item(1, rowNo).Value = rowNo * 2
            End If
        Next
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = DataGridView1.CurrentRow.Cells(1).Value
        'TextBox1.Text = DataGridView1.CurrentRow.Cells(2).Value
    End Sub

شكرا اخي

NaserHk

على محاولتك الاجابة ........ ولكنها بعيدة تماما عن ما اردت

والحمد لله وجدت الحل عن طريقة مساعدة احد اعضاء منتدى اخر وهو

Delete_frm.txt_Phone1.Text = If(DataGridView1.CurrentRow.Cells(4) Is Nothing OrElse DataGridView1.CurrentRow.Cells(4).Value Is Nothing, Delete_frm.txt_Phone1.Text = "", DataGridView1.CurrentRow.Cells(4).Value.ToString)

واحببت ان اضعه هنا ، كي يستفيد منه اخواتي اعصاء المنتدى

والسلام عليكم

kafi كتب:

شكرا اخي

NaserHk

على محاولتك الاجابة ........ ولكنها بعيدة تماما عن ما اردت

 

والحمد لله وجدت الحل عن طريقة مساعدة احد اعضاء منتدى اخر وهو

Delete_frm.txt_Phone1.Text = If(DataGridView1.CurrentRow.Cells(4) Is Nothing OrElse DataGridView1.CurrentRow.Cells(4).Value Is Nothing, Delete_frm.txt_Phone1.Text = "", DataGridView1.CurrentRow.Cells(4).Value.ToString)

واحببت ان اضعه هنا ، كي يستفيد منه اخواتي اعصاء المنتدى

 

والسلام عليكم

للفائدة أخي العزيز:

إذا أعدت التدقيق في ما أخبرتك به وكذلك التدقيق بالشيفرة الحل ستجد أن جوهر المشكلة هي القيمة  NULL والقيمة "" فراغ

ممكن تستخدم الكود التالي وهو اسهل 

TextBox1.Text = IIf(DataGridView1.CurrentRow.Cells(4).Value Is DBNull.Value, "", DataGridView1.CurrentRow.Cells(4).Value)