منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Public Sub emptycolumn()
        For i As Integer = 0 To datagridview1.Rows.Count - 1
            For j = 6 To 9
                If IsDBNull(datagridview1.Rows(i).Cells(j).Value) Then
                    datagridview1.Rows(i).Cells(j).Value = "*"
                End If
            Next j
        Next i
        For i As Integer = 0 To datagridview1.Rows.Count - 1
            For j = 6 To 9
                If String.IsNullOrEmpty(datagridview1.Rows(i).Cells(j).Value) Then
                    datagridview1.Rows(i).Cells(j).Value = "*"
                End If
            Next j

        Next i


    End Sub

استخدم هذا الكود  لتعبئة اعمدة ب  *
وضعت هذا الكود في موديول لا ينفذ 
لماذا
ولا يظهر خطأ معين

وقم بضافة هذا السطر

لم ينجح اخي
كان الكود غير موجود

---

لم ينفذ اي شيء

(21-12-18, 12:13 AM)atefkhalf2004 كتب : [ -> ]Public Sub emptycolumn()
        For i As Integer = 0 To datagridview1.Rows.Count - 1
            For j = 6 To 9
                If IsDBNull(datagridview1.Rows(i).Cells(j).Value) Then
                    datagridview1.Rows(i).Cells(j).Value = "*"
                End If
            Next j
        Next i
        For i As Integer = 0 To datagridview1.Rows.Count - 1
            For j = 6 To 9
                If String.IsNullOrEmpty(datagridview1.Rows(i).Cells(j).Value) Then
                    datagridview1.Rows(i).Cells(j).Value = "*"
                End If
            Next j

        Next i


    End Sub

استخدم هذا الكود  لتعبئة اعمدة ب  *
وضعت هذا الكود في موديول لا ينفذ 
لماذا
ولا يظهر خطأ معين

ضع هذا الكود في الفورم بدون الحاجة للكود الذي لديك ويعطيك الفرق بين DBNull وEmpty
مع التكأكد من ارقام العمدة لانه احيانا يخطئ فيها البعض
اول سطر IsNewRow هذا اختياري ليتجاهل السطر الأخير تبع الاضافة الجديدة

حضرتك تمام
لكن عند التخزين او الحفظ
ما زال يعتبر قيمة الخلايا فارغة
كيف اخزن البياناتت في  القاعدة
لو الخلية فارغة يخزن بها * 
واذا كان بها قيمة يخزنها كما هي
شكرا

(23-12-18, 01:00 AM)atefkhalf2004 كتب : [ -> ]حضرتك تمام
لكن عند التخزين او الحفظ
ما زال يعتبر قيمة الخلايا فارغة
كيف اخزن البياناتت في  القاعدة
لو الخلية فارغة يخزن بها * 
واذا كان بها قيمة يخزنها كما هي
شكرا

اذكر طريقتك في التعامل مع قاعدة البيانات فلكل مبرمج طريقته، وعلى ذلك يتم كتابة الكود المناسب لك.

حضرتك كيف
عقب ملء الاعمدة بالنجمة مثلا
كيف يتم تخزينها

---

If Conn.State = ConnectionState.Open Then Conn.Close()
        Dim SavInto6 As New OleDb.OleDbCommand
        SavInto6.Connection = Conn
        SavInto6.CommandType = CommandType.Text

        SavInto6.CommandText = "update student  set r11='*' where r11 is null   "
        Conn.Open()
        SavInto6.ExecuteNonQuery()
        Conn.Close()

        SavInto6.CommandText = "update student  set r12='*' where r12 is null "
        Conn.Open()
        SavInto6.ExecuteNonQuery()
        Conn.Close()
        SavInto6.CommandText = "update student  set rg1=0 where rg1 is null   "
        Conn.Open()
        SavInto6.ExecuteNonQuery()
        Conn.Close()
        SavInto6.CommandText = "update student  set rtak1='*' where rtak1 is null   "
        Conn.Open()
        SavInto6.ExecuteNonQuery()
        Conn.Close()

اين السادة الافاضل

قد تكون البيانات فارغة نصيا مثل "" وليست null لهذا جرب Trim مثل ''=(where Trim(r12