VB如何根据listview的第一列的内容添加第二列
比如第一列的内容是1,当按下按钮后,第二列就是2(第一列是动态的,第二列则根据第一列生成n+1),还有的是,listview不只有一行,行也是动态的...
比如第一列的内容是1,当按下按钮后,第二列就是2(第一列是动态的,第二列则根据第一列生成 n+1),还有的是,listview不只有一行,行也是动态的
展开
展开全部
Private Sub Command1_Click()
For i = 1 To ListView1.ListItems.Count
ListView1.ListItems(i).SubItems(1) = ListView1.ListItems(i).Text + 1
Next
End Sub
Private Sub Form_Load()
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "第一列"
ListView1.ColumnHeaders.Add , , "第二列"
ListView1.ListItems.Add ListView1.ListItems.Count + 1, , "1"
ListView1.ListItems.Add ListView1.ListItems.Count + 1, , "4"
ListView1.ListItems.Add ListView1.ListItems.Count + 1, , "8"
End Sub
如果没有达到要求可以继续追问
For i = 1 To ListView1.ListItems.Count
ListView1.ListItems(i).SubItems(1) = ListView1.ListItems(i).Text + 1
Next
End Sub
Private Sub Form_Load()
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "第一列"
ListView1.ColumnHeaders.Add , , "第二列"
ListView1.ListItems.Add ListView1.ListItems.Count + 1, , "1"
ListView1.ListItems.Add ListView1.ListItems.Count + 1, , "4"
ListView1.ListItems.Add ListView1.ListItems.Count + 1, , "8"
End Sub
如果没有达到要求可以继续追问
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询