ListView如何删除多余的行

Question

ListView中，填入20行数据
其余的部分，都删掉，连网格都不留，只留下一片空白，怎么做？

Answer 1

remove    不就行了

Answer 2

不知道楼主说的是不是下面这种效果？    ListView1.ColumnHeaders.Add , , "test1"
    ListView1.ColumnHeaders.Add , , "test2"
    ListView1.View = lvwReport
    ListView1.GridLines = False
    ListView1.BorderStyle = ccNone
    ListView1.Appearance = ccFlat
    Dim i As Integer
    Dim Item As ListItem
    For i = 1 To 20
        Set Item = ListView1.ListItems.Add(, , "TestData " & i)
        Item.SubItems(1) = "TestData1 " & i
    Next
    ListView1.HideColumnHeaders = True
    
    ListView1.Width = 0
    ListView1.Height = 0
    For i = 1 To ListView1.ListItems.Count
        ListView1.Height = ListView1.Height + ListView1.ListItems(i).Height
    Next
    For i = 1 To ListView1.ColumnHeaders.Count
        ListView1.Width = ListView1.Width + ListView1.ColumnHeaders(i).Width
    Next