[已解决]关于ListView中显示列重复问题

f13145205920

各位大侠，请看附件，我点查询后在“物料名称”那里输入一个查询条件，下面的Listview列就会显示很多列，而实际我定义的是显示五列。请高手帮忙看下是怎么回事，又该如何解决这一问题呢？

最佳答案

月排行榜 / 总排行榜

阿童木

2011-3-21 12:41

Private Sub TextBox1_Change()

    Dim Itm As ListItem
    Dim r As Integer
    Dim i As Integer
'    Dim c As Integer
'    r = Cells(Rows.Count, 1).End(xlUp).Row
On Error Resume Next
    With ListView1
        .ColumnHeaders.Clear
        .ColumnHeaders.Add 1, , "ÎïÁÏÃû³Æ ", 50, 0
        .ColumnHeaders.Add 2, , "ÎïÁÏÅú´Î ", 80, 0
        .ColumnHeaders.Add 3, , "ÎïÁÏÊýÁ¿ ", 60, 0
        .ColumnHeaders.Add 4, , "ÎïÁÏ¿âλ ", 80, 0
        .ColumnHeaders.Add 5, , "ʹÓÃÇé¿ö ", 50, 0
        .View = lvwReport
        .Gridlines = True
ListView1.ListItems.Clear
'ListView1.ColumnHeaders.Clear
Dim strtb1 As String

strtb1 = TextBox1.Text
    With Worksheets("sheet1")
    For i = 3 To .[a65536].End(xlUp).Row
        If .Cells(i, 1).Value Like "*" & strtb1 & "*" Then
            Set Itm = ListView1.ListItems.Add()
         
            Itm.Text = .Cells(i, 1)
'            For c = 1 To 4
'                 Itm.SubItems(c) = .Cells(i, c + 1)
'                 Itm.SubItems(c) = Cells(i, c + 1)
'            Next
            Itm.SubItems(1) = .Cells(i, 2)
            Itm.SubItems(2) = .Cells(i, 3)
            Itm.SubItems(3) = Format(.Cells(i, 4), "@")
            Itm.SubItems(4) = .Cells(i, 5)
         
        End If
    Next
    End With

    End With
    Set Itm = Nothing
End Sub

跳转到最佳答案楼层

阿童木

Private Sub TextBox1_Change()

    Dim Itm As ListItem
    Dim r As Integer
    Dim i As Integer
'    Dim c As Integer
'    r = Cells(Rows.Count, 1).End(xlUp).Row
On Error Resume Next
    With ListView1
        .ColumnHeaders.Clear
        .ColumnHeaders.Add 1, , "ÎïÁÏÃû³Æ ", 50, 0
        .ColumnHeaders.Add 2, , "ÎïÁÏÅú´Î ", 80, 0
        .ColumnHeaders.Add 3, , "ÎïÁÏÊýÁ¿ ", 60, 0
        .ColumnHeaders.Add 4, , "ÎïÁÏ¿âλ ", 80, 0
        .ColumnHeaders.Add 5, , "ʹÓÃÇé¿ö ", 50, 0
        .View = lvwReport
        .Gridlines = True
ListView1.ListItems.Clear
'ListView1.ColumnHeaders.Clear
Dim strtb1 As String

strtb1 = TextBox1.Text
    With Worksheets("sheet1")
    For i = 3 To .[a65536].End(xlUp).Row
        If .Cells(i, 1).Value Like "*" & strtb1 & "*" Then
            Set Itm = ListView1.ListItems.Add()
         
            Itm.Text = .Cells(i, 1)
'            For c = 1 To 4
'                 Itm.SubItems(c) = .Cells(i, c + 1)
'                 Itm.SubItems(c) = Cells(i, c + 1)
'            Next
            Itm.SubItems(1) = .Cells(i, 2)
            Itm.SubItems(2) = .Cells(i, 3)
            Itm.SubItems(3) = Format(.Cells(i, 4), "@")
            Itm.SubItems(4) = .Cells(i, 5)
         
        End If
    Next
    End With

    End With
    Set Itm = Nothing
End Sub

f13145205920

回复 阿童木 的帖子

这句的作用是清除以前的排列，用最新的排列？

蓝桥玄霜

请见附件。

阿童木

清除原先的列标题。不然会一直添加

f13145205920

蓝桥玄霜 发表于 2011-3-21 12:48
请见附件。

r = Cells(Rows.Count, 1).End(xlUp).Row

蓝桥版主把这句用起来了，这句的意思我没看明白，可以帮解释下吗？
这句和ListView1.ColumnHeaders.Clear这句哪个会更快？