[kafi2030]

الف شكر
اخي 3booody
على توضيحك وتواصلك معي

نعم استطعت والحمد لله من اضافة الاداة، واضفتها الى النمودج، وجعلت لون العنصر المحدد اصفر ، وقد نجح الامر

ولكـــــــــن

طبقت على النمودج نوعين من الليست فيو
1- التي بالاعلى هي من النوع listview
2- والتي بالاسفل هي من النوع ab-listview

وتم تطبيق ذات الكود الذي يعمل على تحميل العناصر على كلا النوعين من الليست فيو

القيم ظهرت على الليست فيو من النوع العادي، ولكنها لم تظهر على الليست فيو من النوع الذي تفضلت به حضرتك

وفيما يلي كود

كود :

Sub PopulateListView()

        With ListView1
            .Clear()
            .View = View.Details
            .Columns.Add("Beda_id", 0, HorizontalAlignment.Center)
            .Columns.Add("م", 60, HorizontalAlignment.Left)
            .Columns.Add("اســم المـــادة", 250, HorizontalAlignment.Left)
            .Columns.Add("سعر الشــراء", 100, HorizontalAlignment.Left)
            .Columns.Add("سعر المبيـع", 100, HorizontalAlignment.Left)
            .Columns.Add("ربح المـادة", 100, HorizontalAlignment.Left)
            .Columns.Add("ملاحظــــات", 265, HorizontalAlignment.Left)

            .GridLines = False
            .FullRowSelect = True
            .Cursor = Cursors.Hand
            .BackColor = System.Drawing.ColorTranslator.FromHtml(My_BackColor_Listview)
            .ForeColor = Color.Black


            Dim Lst As New ListViewItem

            Lst = New ListViewItem()
            Lst.SubItems.Add("1")
            Lst.SubItems.Add("كوسا محشي")
            Lst.SubItems.Add(500)
            Lst.SubItems.Add(900)
            Lst.SubItems.Add(400)
            Lst.SubItems.Add("بلديـــــــة")
            .Items.Add(Lst)
        End With
    End Sub

و الكود الدي يعمل على تعبئة القيم على الليست فيو من النوع ab_listview
هو مشابه تماما للكود المذكور اعلاه

كود :

Sub PopulateListView1()

        With Ab_ListView1
            .Clear()
            .View = View.Details
            .Columns.Add("Beda_id", 0, HorizontalAlignment.Center)
            .Columns.Add("م", 60, HorizontalAlignment.Left)
            .Columns.Add("اســم المـــادة", 250, HorizontalAlignment.Left)
            .Columns.Add("سعر الشــراء", 100, HorizontalAlignment.Left)
            .Columns.Add("سعر المبيـع", 100, HorizontalAlignment.Left)
            .Columns.Add("ربح المـادة", 100, HorizontalAlignment.Left)
            .Columns.Add("ملاحظــــات", 265, HorizontalAlignment.Left)

            .GridLines = False
            .FullRowSelect = True
            .Cursor = Cursors.Hand
            .BackColor = System.Drawing.ColorTranslator.FromHtml(My_BackColor_Listview)
            .ForeColor = Color.Black


            Dim Lst As New ListViewItem

            Lst = New ListViewItem()
            Lst.SubItems.Add("1")
            Lst.SubItems.Add("كوسا محشي")
            Lst.SubItems.Add(500)
            Lst.SubItems.Add(900)
            Lst.SubItems.Add(400)
            Lst.SubItems.Add("بلديـــــــة")
            .Items.Add(Lst)
        End With

    End Sub

ارجو توضيح سبب عدم تحميل القيم على الليست فيو من النوع ab_listview

والف الف شكر
على تواصلك معي
بارك الله فيك