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
……
ListView1.ListItems(123).SubItems(567-1)=0也可以用
ListView1.ListItems(123).listSubItems(567-1)=0你的ColumnHeader要有567个
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