7,763
社区成员
发帖
与我相关
我的任务
分享
Dim itmx As ListItem
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add 1, , "Name", 1000
ListView1.ColumnHeaders.Add 2, , "Age", 500
ListView1.ColumnHeaders.Add 3, , "Addr", 2000
Set itmx = ListView1.ListItems.Add(, , "Tom")
itmx.SubItems(1) = "22"
itmx.SubItems(2) = "Sherman Oaks, CA 91403-9998"