منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مساعدة في ترقيم عمود - نسخة قابلة للطباعة

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

مساعدة في ترقيم عمود - sofiane-phy - 19-12-20

ارجو مساعدتكم أساتذة ممكن هو بسيط لكن حاولت دون جدوى

اريد كود ترقيم تلقائي لعمود في الداتا قريد فيو بحيث في حالة حذف رقم من الاوائل يعيد الترتيب مثلا 1 2 3 4 5 اذا حذفت الرقم 2 يعيد الترتيب 1 2 3 4 

RE: مساعدة في ترقيم عمود - سعود - 19-12-20

PHP كود :
Private Sub rerow()
        Dim r As Integer
        For r = 0 To Me.DataGridView1.Rows.Count - IIf(Me.DataGridView1.AllowUserToAddRows, 2, 1)
            Me.DataGridView1.Rows(r).Cells(0).Value = (r + 1)
        Next
    End Sub 


RE: مساعدة في ترقيم عمود - sofiane-phy - 19-12-20

(19-12-20, 03:54 PM)سعود كتب :
PHP كود :
Private Sub rerow()
        Dim r As Integer
        For r = 0 To Me.DataGridView1.Rows.Count - IIf(Me.DataGridView1.AllowUserToAddRows, 2, 1)
            Me.DataGridView1.Rows(r).Cells(0).Value = (r + 1)
        Next
    End Sub 

ما شاء الله ، الله يسعدك أخي ، جزاك الله خيرا
(19-12-20, 04:03 PM)sofiane-phy كتب :
(19-12-20, 03:54 PM)سعود كتب :
PHP كود :
Private Sub rerow()
        Dim r As Integer
        For r = 0 To Me.DataGridView1.Rows.Count - IIf(Me.DataGridView1.AllowUserToAddRows, 2, 1)
            Me.DataGridView1.Rows(r).Cells(0).Value = (r + 1)
        Next
    End Sub 

ما شاء الله ، الله يسعدك أخي ، جزاك الله خيرا

هل تسمحلي بنشرها أخي

RE: مساعدة في ترقيم عمود - سعود - 20-12-20

(19-12-20, 04:03 PM)sofiane-phy كتب : هل تسمحلي بنشرها أخي

نشر ماذا؟
المهم لدي ان السائل يستفيد 
ولو اردت النشر فاذكر "منتدى فيجوال بيسك لكل العرب كمصدر للمشروع"