تقييم الموضوع :
  • 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
وشكرا على اهتمامكم
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة الترقيم التلقائي sql moh developer 14 304 17-10-20, 04:47 AM
آخر رد: عبد العزيز البسكري
  مشكلة الترقيم التلقائي محمد خيري 4 608 21-09-20, 11:58 AM
آخر رد: Thht
  [VB.NET] هل يوجد مشغل بديل لي vlc يقوم بتشغيل روابط بث مباشرة ميدو الفنان 1 125 16-09-20, 11:49 PM
آخر رد: ميدو الفنان
  الى خبراء الدوت نت (داتا جريد فيو) التنقل التلقائي في خلايا الداتا جريد ismaeel 0 263 10-08-20, 03:38 PM
آخر رد: ismaeel
  الترقيم التلقائي في الكريستال ريبورت عمور2016 3 364 22-07-20, 08:51 PM
آخر رد: عمور2016
  مشكلة في الترقيم التلقائي في قاعدة بيانات سيكوال سيرفر momani33 3 372 27-05-20, 11:49 PM
آخر رد: momani33
  جعل الرتقيم التلقائي بموديل محمد خيري 6 608 03-02-20, 11:49 PM
آخر رد: alsalamoni
  الاكمال التلقائي على حقل اسم الصنف بالداتا كريد فيو Ghassanff 7 868 01-01-20, 04:56 PM
آخر رد: asemshahen5
  الاكمال التلقائي بجزء من الكلمه aftfm 4 1,027 31-12-19, 09:39 AM
آخر رد: mmali127
Lightbulb المطلوب اعادة الترقم التلقائي من رقم واحد في كل بداية سنة جديدة ابو رضوان 1 643 04-09-19, 04:29 PM
آخر رد: asemshahen5

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


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