تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كود بديل لتسلسل التلقائي
#1
السلام عليكم


انا قمت باستخدام بديل للتسلسل التلقائي بمعني وضع عمود وهمي للترقيم وذالك لمشاكل الترقيم التليقائي بعد الحذف


الكود  كان باحد المواضيع لاحد الاخوة بالمنتدي كالتالي



كود :
For Each r As DataGridViewRow In Me.DataGridView1.Rows
           If Not r.IsNewRow Then r.Cells(1).Value = (r.Index + 1).ToString
       Next

الكود بيترتب ويضع الارقام لترتيب الصفوف بدون مشاكل

ولكن عند الضغط علي راس العمود لترتيب التصاعدي والتنازلي بحيث  عند حدوث ترتيب للاعمدة يمكن ارجاعها لاصلها بالترتيب الرقمي للعمود الجديد المضاف للترقيم

تظهر مشكلة عند الضغط اعلي العمود  ولا يقوم بالترتيب والرجوع الي حالتة الارقام من 1 الي اخر رقم باخر صف مثلا اريد عند الضغط يظهر الترتيب تصاعدة وتنازلي ا
الرد }}}
تم الشكر بواسطة:
#2
لو عاوز تلغي الترتيب التصاعدي والتنازلي في datagridview استخدم
PHP كود :
   Public Sub NO_SORTORDER(ByVal DataGridView As DataGridView)
 
       For Each DGV As DataGridViewColumn In DataGridView.Columns
            DGV
.SortMode DataGridViewColumnSortMode.NotSortable
        Next
    End Sub 

لو عاوز تخلي الترقيم التلقائي في head row  في datagridview استخدم


PHP كود :
For As Integer 0 To DGV1.Rows.Count 2
            DGV1
.Rows(I).HeaderCell.Value = (1).ToString
        Next 

لو عاوز تستخدم اي الطرقتين في الترقيم التلقائي استخدم الحدث ده لارجاع الترقيم

PHP كود :
   Private Sub DGV1_ColumnHeaderMouseClick(sender As ObjectAs DataGridViewCellMouseEventArgsHandles DGV1.ColumnHeaderMouseClick
        For I 
As Integer 0 To DGV1.Rows.Count 2
            DGV1
.Rows(I).HeaderCell.Value = (1).ToString
        Next
    End Sub 
او
PHP كود :
   Private Sub DGV1_ColumnHeaderMouseClick(sender As ObjectAs DataGridViewCellMouseEventArgsHandles DGV1.ColumnHeaderMouseClick
        For Each r 
As DataGridViewRow In Me.DataGridView1.Rows
            If Not r
.IsNewRow Then r.Cells(1).Value = (r.Index 1).ToString
        Next
    End Sub 
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد }}}
تم الشكر بواسطة: عبدالله الدوسري , asemshahen5 , asemshahen5
#3
(23-01-18, 01:14 PM)محمود صالح كتب : لو عاوز تلغي الترتيب التصاعدي والتنازلي في datagridview استخدم
PHP كود :
   Public Sub NO_SORTORDER(ByVal DataGridView As DataGridView)
 
       For Each DGV As DataGridViewColumn In DataGridView.Columns
            DGV
.SortMode DataGridViewColumnSortMode.NotSortable
        Next
    End Sub 

لو عاوز تخلي الترقيم التلقائي في head row  في datagridview استخدم


PHP كود :
For As Integer 0 To DGV1.Rows.Count 2
            DGV1
.Rows(I).HeaderCell.Value = (1).ToString
        Next 

لو عاوز تستخدم اي الطرقتين في الترقيم التلقائي استخدم الحدث ده لارجاع الترقيم

PHP كود :
   Private Sub DGV1_ColumnHeaderMouseClick(sender As ObjectAs DataGridViewCellMouseEventArgsHandles DGV1.ColumnHeaderMouseClick
        For I 
As Integer 0 To DGV1.Rows.Count 2
            DGV1
.Rows(I).HeaderCell.Value = (1).ToString
        Next
    End Sub 
او
PHP كود :
   Private Sub DGV1_ColumnHeaderMouseClick(sender As ObjectAs DataGridViewCellMouseEventArgsHandles DGV1.ColumnHeaderMouseClick
        For Each r 
As DataGridViewRow In Me.DataGridView1.Rows
            If Not r
.IsNewRow Then r.Cells(1).Value = (r.Index 1).ToString
        Next
    End Sub 


الكود دة ظبط معايا بس بيخلي اخر صف بصفر  لية مش عارف 


كود :
For I As Integer = 0 To DGV1.Rows.Count - 2
           DGV1.Rows(I).HeaderCell.Value = (I + 1).ToString
       Next
الرد }}}
تم الشكر بواسطة: asemshahen5
#4
وسع عرض headrow خليه 60 هكذا

   

انا شاكك ان الدتا جريد الى عندك فيها 10 صفوف فاخر صف ب 10 ( ظاهر 0 ولم يظهر 1 ) ولذك قم بتوسيع headrow
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد }}}
تم الشكر بواسطة: asemshahen5
#5
ياجماعة انا عايز ترقيم تلقائى نفس اللى موجود في DGV ولكن يكون في استعلام بحيث عند فتح الاستعلام يظهر عمود الترقيم للسجلات

على فكرة انا باستخدم فيجوال بيسك 2008 مع قاعدة SQL
وشكرا على اهتمامكم
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم