listview刷新问题

Question

调用Listview.listitems.add之前先调用一次Listview.listitems.clear清除Listview里面原来的数据。不过一般都不这么做，而是在Insert成功以后直接在Listview里面追加一行

Answer 1

listview.listitems.clear
我已经试过了，不行，所以才来论坛里求助。
楼上兄弟能否说的具体点？我不知道如何在listview 追加一行啊
能否写个代码？
谢谢

Answer 2

Dim i As Long Listview1.ColumnHeaders.Clear    '清除Listview的列标题For i = 1 To rs.Fields.Count 
    ListView1.ColumnHeaders.Add , , rs.Fields(i - 1).Name 
Next i Listview1.ListItems.Clear        '清除Listview的内容Do Until rs.EOF = True 
    If IsNull(rs(0)) = False Then 
        ListView1.ListItems.Add , , CStr(rs(0)) 
    Else 
        ListView1.ListItems.Add , , "" 
    End If 
    For i = 1 To rs.Fields.Count - 1 
        If IsNull(rs(i)) = False Then 
            ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , CStr(rs(i)) 
        Else 
            ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , "" 
        End If     Next i 
    rs.MoveNext 
Loop真小白，知道用Listview1.ListItems.Clear清除ListItem里的内容，却不知道用Listview1.ColumnHeaders.Clear清除ColumnHeader里的内容

Answer 3

既然能用Do Until循环往Listview里面添加内容，居然还不知道如何往Listview里追加，真是比小白还小白conn.execute "insert …………"操作成功以后先执行
ListView1.ListItems.Add , , ""
向Listview里面新添加一行，然后再用
ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , text1.text
把Text、Combo里面的数据一个一个填到新增加行对应的单元格里面