关于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
...全文
94 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧