1,453
社区成员




Private Sub Form_Load()'行、列、子项要先添加好
ListView1.View = lvwReport
For I = 1 To 10
ListView1.ColumnHeaders.Add , , "第" & I & "列"
Next
For I = 1 To 10
ListView1.ListItems.Add , , "第" & I & "行"
For j = 1 To 10
ListView1.ListItems(I).ListSubItems.Add , , ""
Next
Next
ListView1.ListItems(2).ListSubItems(5).Text = 0
ListView1.ListItems(4).ListSubItems(3).Text = 404
ListView1.ListItems(10).ListSubItems(2).Text = 102
End Sub