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书生
科技发烧友

2010-02-26 · 擅长软件设计、WEB应用开发、小程序
网海1书生
采纳数:12311 获赞数:26228

向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
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式