بسم الله الرحمن الرحيم

أهلا بكم .... الكثير منا يستخدم مصنفات الاكسل ويمكنك معرفة قيمة خلايا معينة فقط من خلال تحديد تلك الخلايا و ستجد قيمة تلك الخلايا موجود فى شريط الحالة فى مصنف الاكسل ....لكن كيف يمكن عمل ذلك فى شبكة البيانات ListView وهو من الأسئلة الأكثر شيوعا وجدت على شبكة الإنترنت....لذلك وجدت شفرة فى أحد المواقع الاجنبية و أحببت أن انقله لكم ...


_ نفترض أن شكبة البيانات  ListView بها الاعمدة التالية :

الكود:


    With lvList
    .Clear()
    
    .View = View.Details
    .FullRowSelect = True
    .GridLines = True
    .Columns.Add("ProductDetailID", 0)
    .Columns.Add("Category", 100)
    .Columns.Add("Brand", 100)
    .Columns.Add("Description", 250)
    .Columns.Add("U/M", 100)
    .Columns.Add("Qty On Hand", 100, HorizontalAlignment.Right)
    .Columns.Add("Selling Price", 100, HorizontalAlignment.Right)
    
    FillListView(lvList, GetData(sSql))
    End With

_ الان اذا اردت الحصول على قيمة العمود Selling Price  ...نستخدم الكود التالى :

الكود:


    Dim SellingPrice As Double
    
    intProductDetailID = lvList.FocusedItem.Text
    SellingPrice = lvList.FocusedItem.SubItems(6).Text