vb中如何在listview中添加数据？

PrivateSubCommand1_Click()DimxxAsListItemSetxx=ListView1.ListItems.Add(,,"111")xx=Lis... Private Sub Command1_Click()
Dim xx As ListItem
Set xx = ListView1.ListItems.Add(, , "111")
xx = ListView1.ListItems.Add(, , "222")
xx = ListView1.ListItems.Add(, , "333")
xx = ListView1.ListItems.Add(, , "444")
End Sub

Private Sub Form_Load()
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "第1列", 1000
ListView1.ColumnHeaders.Add , , "第2列", 1000
ListView1.ColumnHeaders.Add , , "第3列", 1000
End Sub

代码如上，最后第一列第一行也就变成444了，下边是222，333，444.
请问，第一行为什么不是111
还有我在Private Sub Command2_Click()中写入什么代码会在第二列第一行输入数据？展开

 我来答

1个回答

#热议# 海关有哪些禁运商品？查到后怎么办？

网海1书生

科技发烧友

2010-02-26 · 擅长软件设计、WEB应用开发、小程序

网海1书生

采纳数：12310 获赞数：26223

向TA提问私信TA

关注

展开全部

Private Sub Command1_Click()
Dim xx As ListItem
Set xx = ListView1.ListItems.Add(, , "1111")
xx.SubItems(1) = "2222"
xx.SubItems(2) = "3333"
End Sub

Private Sub Form_Load()
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "第1列", 1000
ListView1.ColumnHeaders.Add , , "第2列", 1000
ListView1.ColumnHeaders.Add , , "第3列", 1000
End Sub

本回答由提问者推荐