[المبرمج البسيط]

الشرح في الصورة

[Abu Ehab]

السلام عليكم

مع أن أسمي مش موجود في القائمة لكن خذ هذا الكود ,, وراح يرقم لك رؤس الأسطر ويوفر عليك عامود مش لازم ..

PHP كود :

For Each Row As DataGridViewRow In DataGridView1.Rows
            If Row.IsNewRow Then Continue For
            Row.HeaderCell.Value = (Row.Index + 1).ToString
        Next 


[المبرمج البسيط]

اين اضع الكود لانني مبتدأ

[Abu Ehab]

في حدث تحميل البيانات للجريدفيو يعني في الحدث أو الأجراء الذي يقوم بملء الجريد بالبيانات ويجب أن يكون هذا الكود أخر شيئ
يعني بعد ما تمتلئ الجريد بالببيانات ,, يأتي دور هذا الكود لترقيم السطور ... تمام ؟

[المبرمج البسيط]

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

[Abu Ehab]

طيب :
خذ الحدث التالى نسخ ولص فقط :

PHP كود :

Private Sub DataGridView1_RowPostPaint(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowPostPaintEventArgs) Handles DataGridView1.RowPostPaint
        Dim strRowNumber As String = (e.RowIndex + 1).ToString
        Dim size As SizeF = e.Graphics.MeasureString(strRowNumber, Me.Font)

        DataGridView1.RowHeadersWidth = 60

        Dim b As Brush = SystemBrushes.ControlText
        e.Graphics.DrawString(strRowNumber, Me.Font, b, e.RowBounds.Location.X + 15, e.RowBounds.Location.Y + ((e.RowBounds.Height - size.Height) / 2))
    End Sub 


[حريف برمجة]

مرحبا اخي

خذ هذا الكود نسخ ولصق وحطه في اي مكان وهو لما تضيف سطر او تحذف سطر من القريد يقوم بإعادة ترتيب التسلسل

PHP كود :

Private Sub DataGridView1_RowsAdded(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowsAddedEventArgs) Handles DataGridView1.RowsAdded
 For i As Integer = 0 To DataGridView1.Rows.Count - 1
  DataGridView1.Rows(i).HeaderCell.Value = (i + 1).ToString
 Next
End Sub

Private Sub DataGridView1_RowsRemoved(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowsRemovedEventArgs) Handles DataGridView1.RowsRemoved
  For i As Integer = 0 To DataGridView1.Rows.Count - 1
    DataGridView1.Rows(i).HeaderCell.Value = (i + 1).ToString
  Next
End Sub 


موفق

[المبرمج البسيط]

اخوان لا يحدث اي ترقيم

[المبرمج البسيط]

up up up up up up up up up

[kslawy]

جرب هذا

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DataGridView1.Columns(0).ReadOnly = True ' نجعل عمود الترقيم للقراءة فقط
    End Sub


    Private Sub DataGridView1_CellValidating(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellValidatingEventArgs) Handles DataGridView1.CellValidating
        If e.ColumnIndex = 1 Then ' إذا كان العمل علي عمود الرقم
            If Me.DataGridView1.IsCurrentCellDirty Then ' هل يتم العمل علي الخلية
                If e.FormattedValue <> String.Empty Then ' قيمة الخلية ليست فارغة
                    Me.DataGridView1.Rows(e.RowIndex).Cells(0).Value = e.RowIndex + 1 ' يتم إضافة ترقيم للعمود الأول وذلك عند طريق الاندكس تبع الصف بزيادة واحد
                Else
                    Me.DataGridView1.Rows(e.RowIndex).Cells(0).Value = Nothing ' إذا الخلية فارغة يتم إزالة الترقيم
                End If
            End If
        End If
    End Sub

****
***
**
*