请求vb高手--listview的用法

来源：百度知道 编辑：UC知道 时间：2024/07/18 07:12:15
我创建了一个空的listview，其中有两列，还设了一个button，让这个botton的功能是：点击botton的时候将listview中的第一行的两列中分别添加1和2，摆脱了，我是菜鸟~~~OTZ

Private Sub Command1_Click() '命令按钮
ListView1.View = lvwReport '设置ListView控件中ListItem对象的外观形式为报表，其值为3
ListView1.ColumnHeaders.Clear '清除原有的列标题
With ListView1.ColumnHeaders '添加新的列标题
.Add , , "", 10
.Add , , "第一列", 1000 '第一列标题，标题内容为“第一列”，列宽为1000
.Add , , "第二列", 1000 '第二列标题，标题内容为“第二列”，列宽为1000
End With

ListView1.ListItems.Clear '清除原有的记录内容
With ListView1.ListItems.Add '添加新记录
.SubItems(1) = 1 '第一列内容
.SubItems(2) = 2 '第二列内容
End With
End Sub

在窗体中添加一个ListView控件（名称为ListView1）和一个命令按钮（名称为Command1），将代码复制、粘贴、运行即可。不明白的话可以给我留言。。。

Dim strSQL As String
Dim rsData As New ADODB.Recordset
Dim rsData1 As New ADODB.Recordset
Dim nodx As Node
Dim strPare