[kafi2030]

السلام عليكم
شكرا اخي sooriaty
على اجابتك

تم محاولة تعبئة العامود بالارقام، بعد ان تم تعبئة الليست فيو
الا ان النيجة كانت غير مرضية على الاطلاق

كود :

Dim Lst As New ListViewItem
            Dim List = From B In db.Fixed_Bedas Select B

            For Each x In List
                Lst = New ListViewItem(x.Beda_id)
                Lst.SubItems.Add("")
                Lst.SubItems.Add(x.Beda_Name)

                Lst.SubItems.Add(GetValue(x.Shra_Price))
                Lst.SubItems.Add(GetValue(x.Mabee_Price))
                Lst.SubItems.Add(GetValue(x.Mabee_Price - x.Shra_Price))
                Lst.SubItems.Add(x.Beda_Note)
                .Items.Add(Lst)
            Next

            For Each x In List
                Lst = New ListViewItem(x.Beda_id)
                Lst.SubItems.Add(i)
                .Items.Add(Lst)
                i += 1
            Next

        End With

ارجو المساعدة
والف شكر