Private Sub Form_Load()
For i = 1 To 10
ListView1.Refresh
ListView1.ListItems.Add
ListView1.ListItems(i).Text = "f"
ListView1.ListItems(i).SubItems(1) = "b"
ListView1.ListItems(i).SubItems(2) = "c"
ListView1.ListItems(i).SubItems(3) = "c"
ListView1.ListItems(i).SubItems(4) = "d"
Next i
End Sub

vb没告诉你？

能运行,但结果是这样的~~

知道了,改成lvwReport
就行了

晕晕。