إضافة عناصر إلى listview في وقت التشغيل

Question

عند I إضافة قيم جديدة إلى listview باستخدام:

    Set lstView = ListView(0).ListItems.Add(, , txtName)
    lstView.ListSubItems.Add , , txtValue
    lstView.Refresh

والمشكلة الوحيدة هي أن هذا يعرض فقط خط جديد فارغ في ListView، أي فكرة عن كيفية تحديثه بشكل صحيح؟

وعادة أنا باستخدام السجلات بكل بساطة واضحة ثم إعادة ملء البيانات ولكني في حاجة للمستخدم لتكون قادرة على إضافة إدخالات إلى يكون ListView. وسوف ثم تنقل عبر يكون ListView إضافة القيم زاد أنه DB مرة واحدة فقط ينتهي المستخدم من تعديل يكون ListView.

ويرجع الفضل في ذلك مسبقا لأية مساعدة.

Answer 1

وعلى افتراض تم تعيين الخاصية .View من ListView إلى "تقرير"، ويلي إضافة بضع الصفوف لمراقبة وضبط نص البند الفرعي.

Dim li As ListItem

With ListView1
    .ColumnHeaders.Add , , "One"
    .ColumnHeaders.Add , , "Two"
    .ColumnHeaders.Add , , "Three"

    Set li = .ListItems.Add(, , "Row1Item1")
    li.SubItems(1) = "Row1Item2"
    li.SubItems(2) = "Row1Item3"

    Set li = .ListItems.Add(, , "Row2Item1")
    li.SubItems(1) = "Row2Item2"
    li.SubItems(2) = "Row2Item3"
End With