listview控件的数值列排序，高分，马上结题！

Question

sort the data first, then add item

Answer 1

Private Sub Command1_Click()
    Dim i As Long
    
    For i = 1 To 100
        ListView1.ListItems(i).Text = Format(ListView1.ListItems(i).Text, "000")
    Next i
    
    ListView1.SortKey = 0
    ListView1.Sorted = True
    
    For i = 1 To 100
        ListView1.ListItems(i).Text = Val(ListView1.ListItems(i).Text)
    Next i
End SubPrivate Sub Form_Load()
    Dim i As Long
    
    ListView1.View = lvwReport
    ListView1.ColumnHeaders.Add , , "Column1"
    
    For i = 1 To 100
        ListView1.ListItems.Add , , Int(Rnd() * 1000)
    Next i
End Sub