24-01-18, 09:50 PM
اخي صمم الدتا قريد كما في الصورة
مثال الاول
الكود
مثال الثاني
الكود
مثال الثالث
الكود
وجرب تشغل المثال بعد التعديل
مثال الاول
الكود
PHP كود :
Public Class EX_1
Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
DGV1.Rows.Add("احمد", 500)
DGV1.Rows.Add("عمر", 900)
DGV1.Rows.Add("محمد", 1300)
For I As Integer = 0 To DGV1.Rows.Count - 2
DGV1.Rows(I).HeaderCell.Value = (I + 1).ToString
Next
End Sub
Private Sub DGV1_ColumnHeaderMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DGV1.ColumnHeaderMouseClick
For I As Integer = 0 To DGV1.Rows.Count - 2
DGV1.Rows(I).HeaderCell.Value = (I + 1).ToString
Next
End Sub
End Class
مثال الثاني
الكود
PHP كود :
Public Class EX_2
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
DGV1.RowHeadersVisible = False
DGV1.Rows.Add("", "احمد", 500)
DGV1.Rows.Add("", "عمر", 900)
DGV1.Rows.Add("", "محمد", 1300)
For I As Integer = 0 To DGV1.Rows.Count - 2
DGV1.Rows(I).Cells(0).Value = (I + 1).ToString
Next
End Sub
End Class
مثال الثالث
الكود
PHP كود :
Public Class EX_3
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
DGV1.Rows.Add("احمد", 500)
DGV1.Rows.Add("عمر", 900)
DGV1.Rows.Add("محمد", 1300)
For I As Integer = 0 To DGV1.Rows.Count - 2
DGV1.Rows(I).HeaderCell.Value = (I + 1).ToString
Next
NO_SORTORDER(DGV1)
End Sub
Public Sub NO_SORTORDER(ByVal DataGridView As DataGridView)
For Each DGV As DataGridViewColumn In DataGridView.Columns
DGV.SortMode = DataGridViewColumnSortMode.NotSortable
Next
End Sub
End Class
صلى الله على نبينا محمد
اخيكم / محمود صالح
قال الزهري رحمه الله
مــا عُـــبـِد الله بشئ أفضل من العلم

