lvw1.View = lvwReport

lvw1.View = lvwReport

给你一个自己写的添加头列:
调用: AddLvwHeads ListView, "序号=800","列名1=1500","列名2=3000"


'添加 ListView 控件头列表
'AddLvwItem ListView控件, [可选 列名=列宽度   例如:编号=800] ...
Public Sub AddLvwHeads(objLvw As ListView, ParamArray pItem())
    Dim i As Long
    Dim k As Long
    Dim str1 As String
    Dim str2 As String

    If UBound(pItem) = -1 Then Exit Sub

    With objLvw
        .ColumnHeaders.Clear
        .ListItems.Clear
        .HideColumnHeaders = False
        .View = lvwReport

        For i = 0 To UBound(pItem)
            k = InStrRev(pItem(i), "=")

            If k = 0 Then
                str1 = pItem(i)
                str2 = ""

            Else
                str1 = Left$(pItem(i), k - 1)
                str2 = Right$(pItem(i), Len(pItem(i)) - k)

            End If

            .ColumnHeaders.Add , , str1
            If Len(str2) > 0 Then .ColumnHeaders(i + 1).Width = Val(str2)
        Next
    End With
End Sub