谁能帮我解决这个问题

7016427

Private Sub CommandButton1_Click()
' 请各位高手看看，为什么以下黄色处不执行？
ListView1.ListItems.Clear  '清空列表
ListView1.ColumnHeaders.Clear           '清空列表头
With ListView1
Dim i%

.ColumnHeaders.Add , , "序号"
.ColumnHeaders.Add , , "日期"
.ColumnHeaders.Add , , "发送旅客"
.ColumnHeaders.Add , , "累计发送旅客"
.ColumnHeaders.Add , , "直通"
.ColumnHeaders.Add , , "累计直通"
.ColumnHeaders.Add , , "管内"
.ColumnHeaders.Add , , "累计管内"
.ColumnHeaders.Add , , "客运收入"
.ColumnHeaders.Add , , "累计客运收入"
.View = lvwReport '显示表格
.Gridlines = True '显示网格线
''.FullRowSelect = True '选择整行

For i = 4 To 43
Set Itm = ListView1.ListItems.Add() '添加记录的行标题(第一列内容)
Itm.Text = Sheet41.Cells(i, 1)
Itm.SubItems(1) = Format(Sheet41.Cells(i, 12), "mm月dd日")
Itm.SubItems(2) = Sheet41.Cells(i, 13)
Itm.SubItems(3) = Sheet41.Cells(i, 14)
Itm.SubItems(4) = Sheet41.Cells(i, 15)
Itm.SubItems(5) = Sheet41.Cells(i, 16)
Itm.SubItems(6) = Sheet41.Cells(i, 17)
Itm.SubItems(7) = Sheet41.Cells(i, 18)
Itm.SubItems(8) = Sheet41.Cells(i, 19)
Itm.SubItems(9) = Sheet41.Cells(i, 20)
Next
End With
End Sub
Private Sub CommandButton2_Click()
ListView1.ListItems.Clear  '清空列表
ListView1.ColumnHeaders.Clear           '清空列表头
With ListView1
Dim i%

.ColumnHeaders.Add , , "序号"
.ColumnHeaders.Add , , "上年日期"
.ColumnHeaders.Add , , "当年日期"
.ColumnHeaders.Add , , "发送旅客"
.ColumnHeaders.Add , , "累计发送旅客"
.ColumnHeaders.Add , , "直通"
.ColumnHeaders.Add , , "累计直通"
.ColumnHeaders.Add , , "管内"
.ColumnHeaders.Add , , "累计管内"
.ColumnHeaders.Add , , "客运收入"
.ColumnHeaders.Add , , "累计客运收入"
.View = lvwReport '显示表格
.Gridlines = True '显示网格线
'.FullRowSelect = True '选择整行
For i = 4 To 43
Set Itm = ListView1.ListItems.Add() '添加记录的行标题(第一列内容)
Itm.Text = Sheet41.Cells(i, 1)
Itm.SubItems(1) = Format(Sheet41.Cells(i, 2), "mm月dd日")
Itm.SubItems(1) = Format(Sheet41.Cells(i, 12), "mm月dd日")
Itm.SubItems(2) = Sheet41.Cells(i, 3)
Itm.SubItems(3) = Sheet41.Cells(i, 4)
Itm.SubItems(4) = Sheet41.Cells(i, 5)
Itm.SubItems(5) = Sheet41.Cells(i, 6)
Itm.SubItems(6) = Sheet41.Cells(i, 7)
Itm.SubItems(7) = Sheet41.Cells(i, 8)
Itm.SubItems(8) = Sheet41.Cells(i, 9)
Itm.SubItems(9) = Sheet41.Cells(i, 10)

Next
End With
End Sub

笑着...两年过去

.ColumnHeaders.Add , 1, "序号"
.ColumnHeaders.Add , 2, "日期"
……

7016427

笑着...两年过去 发表于 2017-1-23 22:17
.ColumnHeaders.Add , 1, "序号"
.ColumnHeaders.Add , 2, "日期"
……

你好！测试还是错误！

笑着...两年过去

不好意思，忘记测试了
.ColumnHeaders.Add , 1, ,"序号"
.ColumnHeaders.Add , 2, ,"日期"

chxw68

详见附件。

7016427

chxw68 发表于 2017-1-24 11:50
详见附件。

请问老师，“.View = 3 ”这是什么意思？

chxw68

列表模式。

wenjun8216

不懂，学习先