关于ListView的一个问题!---出这样的错怎样解决!
我是第一次用listview控件的,在运行到Set cListTreeX = List.ListItems.Add(, , "aa",,1)时报“类型不匹配”如何改?
List.SmallIcons = ImageList1
List.Icons = ImageList2
Dim cListTreeX As ListItem
List.ColumnHeaders.Add , , "客户经理", List.Width / 4
List.ColumnHeaders.Add , , "服务对象", List.Width / 4
List.ColumnHeaders.Add , , "出门时间", List.Width / 4
List.View = lvwReport
'For i = 0 To mrc.RecordCount - 1
Set cListTreeX = List.ListItems.Add(, , "aa",,1)
' mItem.Text = mrc!xm
' mItem.Icon = 1
' cListTreeX.SmallIcon = 1
' mItem.Key = rsTitles!ISBN
' 用函数得到作者并设置
' SubItems(1) 属性。
'mItem.SubItems(1) = mrc!服务对象
' If Not IsNull(rsTitles![Year Published]) Then
' mItem.SubItems(2) = _
'rsTitles![Year Published]
'End If
'mItem.SubItems(3) = rsTitles!ISBN
'rsTitles.MoveNext
' mrc.MoveNext
'Next i