[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

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

[elgokr]

تعال داخل الزر أو لود تحميل الفورم

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

كود :

emptycolumn()

تحياتى لك

وتمنياتى لك التوفيق

[atefkhalf2004]

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

---

لم ينفذ اي شيء

[elgokr]

ارفق السورس لما تقوم به

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

حتى يتم التعديل عليه طبقاً لمسميات لديك

وساعيد ارفاقه لك حتى تكون الصورة كاملة بعد التعديل معك

تحياتى لك

وتمنياتى لك التوفيق

[a.wagdi]

(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
مع التكأكد من ارقام العمدة لانه احيانا يخطئ فيها البعض

PHP كود :

Private Sub DataGridView1_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
    If sender.Rows(e.RowIndex).IsNewRow Then Return
    If e.ColumnIndex >= 6 And e.ColumnIndex <= 9 Then
        If IsDBNull(e.Value) Then
            e.Value = "*DBNull*"
        ElseIf String.IsNullOrEmpty(e.Value) Then
            e.Value = "*Empty*"
        End If
    End If
End Sub 


اول سطر IsNewRow هذا اختياري ليتجاهل السطر الأخير تبع الاضافة الجديدة

[atefkhalf2004]

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

[a.wagdi]

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

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

[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()

[atefkhalf2004]

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

[a.wagdi]

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