学习VB和VB.Net的，请到歪歪频道4350，每天晚上有课程，其余时间有老师辅导答疑，或者请加QQ群：127241073，申请写“VB贴吧来的”，也欢迎老师来教课(听课完全免费哦)

Private Sub Command1_Click()
Dim i As Integer
Dim aalist As ListItem
'新增表内容
For i = 1 To 60
Set aalist = ListView1.ListItems.Add(, , "序号" & ListView1.ListItems.Count + 1)
aalist.SubItems(1) = "这是第1个内容"
aalist.SubItems(2) = "这是第2个内容"
aalist.SubItems(3) = "这是第3个内容"
Next i
End Sub Private Sub Command2_Click()
Dim aalist As ListItem
Dim i As Integer
'复制报表头部信息
ListView2.ColumnHeaders.Clear
For i = 1 To ListView1.ColumnHeaders.Count
ListView2.ColumnHeaders.Add , , ListView1.ColumnHeaders.Item(i).Text
Next i
'开始复制表的内容
For i = 1 To 30
Set aalist = ListView2.ListItems.Add(, , ListView1.ListItems(i).Text)
aalist.SubItems(1) = ListView1.ListItems(i).SubItems(1)
aalist.SubItems(2) = ListView1.ListItems(i).SubItems(2)
aalist.SubItems(3) = ListView1.ListItems(i).SubItems(3)
Next i End Sub Private Sub Form_Load()
ListView1.ColumnHeaders.Clear
ListView1.ColumnHeaders.Add , , "表头1"
ListView1.ColumnHeaders.Add , , "表头2"
ListView1.ColumnHeaders.Add , , "表头3"
ListView1.ColumnHeaders.Add , , "表头4"
End Sub


窗体上添加两个按钮，两个列表框就可以了
代码缩进没有了，郁闷