إضافة حقل رقمي متسلسل في الداتا جريد

السلام عليكم ...

يمكنك وضع رقم السطر على ترويسة السطر , بمعالجة الحدث (RowPostPaint) : 

 Dim b As New SolidBrush(SystemColors.ControlText)
    Private Sub DataGridView1_RowPostPaint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewRowPostPaintEventArgs) Handles DataGridView1.RowPostPaint
        'Dim b = New SolidBrush(DataGridView1.RowHeadersDefaultCellStyle.ForeColor)
        e.Graphics.DrawString((e.RowIndex + 1).ToString(), e.InheritedRowStyle.Font, b, e.RowBounds.Location.X + 10, e.RowBounds.Location.Y + 4)
    End Sub

الاستاذ  حسام

الكود تم اضافته  ولم يرقم السطور اتمني التعديل

شكرا

atefkhalf2004 كتب:

الاستاذ  حسام

 

الكود تم اضافته  ولم يرقم السطور اتمني التعديل

شكرا

يجب معالجة الحدث و ليس وضع الكود فقط ...

أنا جربت المثال مسبقا و هو يعمل ... إذا لم يعمل ارفق لي مثالا كي اعدل عليه .

الترقيم كان ناحية اليسار     ولم اراه    معذرة   لك 

وعند جعل الجريد من اليمين الي اليسار بظل ناحية اليسار      

كيف يكون من اليمين

ضع الكود هذا في أي مكان مع مراعاة اسم الداتا قريد

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

شكرا علي ردك  الجميل

ولكن في انتظار   راي  ا  حسام

لان  كودخ يوضع في مكان واحد   وليس  مكانين

شكرا

السلام عليكم ..

هذا الكود لو كانت الــ Grid من اليمين لليسار .

Dim b As New SolidBrush(SystemColors.ControlText)
	Sub DataGridView1RowPostPaint(sender As Object, e As DataGridViewRowPostPaintEventArgs)
		e.Graphics.DrawString((e.RowIndex + 1).ToString(), e.InheritedRowStyle.Font, b, e.RowBounds.Location.X  +e.RowBounds.Width - DataGridView1.RowHeadersWidth  + 3 , e.RowBounds.Location.Y +  4)
		
	End Sub