关于ListView的一个问题!---出这样的错怎样解决!

zhoupq 2004-02-24 09:44:53
我是第一次用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
...全文
47 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
ljf88888 2004-04-08
up
回复
supergreenbean 2004-04-07
我怎么看到有全角的符号
List.ListItems.Add(, , "aa",,1)
回复
xjrhero 2004-04-07
你将List.View = lvwReport
改成List.View = lvwIcon
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7489

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2004-02-24 09:44
社区公告
暂无公告