منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - مشكلة الترقيم التلقائي للعمود الاول في الداتا جريد فيو

الصفحات : 1 2 3 4

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

عندي مشكلة

العمود الاول مفتاح اساسي ترقيم تلقائي

في الداتا جريد فيو هناك مشكلة في الترقيم

لو حذفت مثلا الصف رقم 10 ثم اضفت صف جديد المفروض يكون 10 لكن الواقع يظهر الترقيم 11

فهل يمكن حل هذه المشكلة بحيث يكون الترقيم متتابع في حالة الحذف والاضافة

كل عام انتم بخير

يا كوفا،

ومين قالك انه لو حذفت 10 وبعدين اضفت جديد حيكون 10 !

أنت فاهم الترقيم التلقائي غلط.

علمني أستاذي الكريم انا سنة اولى فيجوال

يا كوفا،

الترقيم التلقائي يدخل في عملية البحث والتعديل والحدث لقاعدة البيانات وليس لعمل رقم تسلسلي.

إذا كنت تريد ترقيم تسلسلي انظر هذا الموضوع
http://vb4arb.com/vb/thread-9018.html

انا جربت هذا الكود منفعش
ما الخطأ استاذي الفاضل

PHP كود :

Private Sub DataGridView1_ColumnHeaderCellChanged(sender As Object, e As DataGridViewColumnEventArgs) Handles DataGridView1.ColumnHeaderCellChanged
        For Each Row As DataGridViewRow In DataGridView1.Rows
            If Row.IsNewRow Then Continue For
            Row.HeaderCell.Value = (Row.Index + 1).ToString
        Next
    End Sub 

يا كوفا،

فين مشروعك،

يا جماعة الخير الكود ده متعفرت

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

لكن يلغي عمل زر التعديل وزر الحذف ولا أعرف السبب غير اني مبتدئ ولا زلت بحاجة إلى مساعدتكم

محتاج كود الترقيم التلقائي في حدث اللود ويعمل ايضا مع كل الازرار

الملف مرفق

يا كوفا،

معقولة يعني ما جربت إلا الكود الأول من الموضوع اللي ذكرته لك !.

تفضل يا سيدي الكود الثاني من نفس الموضوع
http://vb4arb.com/vb/thread-9018-post-40...l#pid40242

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 

أستاذي الوادي
انا جربت جميع الاكواد اللي تخطر في بالك دون جدوى
انا ارفقت المشروع إذا ممكن لو تكرمت تتفضل وتعدله لانه حيرني جدا جدا
جزاك الله خيرا استاذي الكريم

أخي الفاضل :

تفضل بالمرفقات البرنامج بعد التعديل المطلوب

أتمنى أن يكون هذا مبتغاك ... وفقكم الله ... ورمضان كريم

الصفحات : 1 2 3 4

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

kofa

الوادي

kofa

الوادي

kofa

الوادي

kofa

الوادي

kofa

boudyonline