تعبئة اعمدة ب * - نسخة قابلة للطباعة

تعبئة اعمدة ب * - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=27971)

الصفحات: 1 2

تعبئة اعمدة ب * - atefkhalf2004 - 21-12-18

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

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

RE: تعبئة اعمدة ب * - elgokr - 21-12-18

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

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

كود :

emptycolumn()

تحياتى لك

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

RE: تعبئة اعمدة ب * - atefkhalf2004 - 21-12-18

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

لم ينفذ اي شيء

RE: تعبئة اعمدة ب * - elgokr - 21-12-18

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

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

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

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

تحياتى لك

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

RE: تعبئة اعمدة ب * - a.wagdi - 22-12-18

(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 هذا اختياري ليتجاهل السطر الأخير تبع الاضافة الجديدة

RE: تعبئة اعمدة ب * - atefkhalf2004 - 23-12-18

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

RE: تعبئة اعمدة ب * - a.wagdi - 23-12-18

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

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

RE: تعبئة اعمدة ب * - atefkhalf2004 - 23-12-18

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

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

RE: تعبئة اعمدة ب * - atefkhalf2004 - 23-12-18

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

RE: تعبئة اعمدة ب * - a.wagdi - 24-12-18

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