[求助]记录添加到listview控件中(未解决……）

sml · 发表于 2007-10-14 13:21

工作表的中记录添加到listview控件以下代码↓

Private Sub UserForm_Initialize()

   '声明变量类型
   Dim ITM As ListItem

   '设置显示方式为报表格式
   ListView1.View = lvwReport
   '显示表格线
   ListView1.Gridlines = True

   '设置循环,填充记录
For i = 1 To [A65536].End(xlUp).Row
    '添加记录
   Set ITM = ListView1.ListItems.Add()
     '添加记录的行标题(第一列标题)
     ITM.Text = Cells(i, 1)
     '添加记录的第三列内容
     ITM.SubItems(1) = Cells(i, 2)
     '添加记录的第三列内容
     ITM.SubItems(2) = Cells(i, 3)
     Next i

End Sub
运行后，出现对方框　用户定义类型未定义　代码红色部分。

不知道错在哪？新手不能解决，希望热心人帮帮我嘛

lt3v7mJM.rar (8.15 KB, 下载次数: 62)

[此贴子已经被作者于2007-10-14 15:07:33编辑过]

DJFN · 发表于 2007-10-14 13:30

应该是工程中少引用了什么东西，
一般 Dim ITM As object

yxy博 · 发表于 2007-10-14 13:31

dim i

sml · 发表于 2007-10-14 13:38

附件已上传。请yxy博和DJFN老师帮忙看下好嘛？

sml · 发表于 2007-10-14 13:41

那不知工作表的中记录怎样添加到listview控件中呢？？对list view控件还不是很懂吖！请给我个例子好嘛^

yxy博 · 发表于 2007-10-14 13:50

sJBMsB5L.rar (8.75 KB, 下载次数: 480)

sml · 发表于 2007-10-14 13:57

谢谢yxy博老师。可以了。

yxy博　老师　真热心。

sml · 发表于 2007-10-14 15:11

哪位热心人帮我看看，为什么我把yxy博附件中的代码复制在另一个Excel的listview控件中，还是运行后，出现对方框　用户定义类型未定义　代码红色部分Dim ITM As ListItem

代码在yxy博老师附件中可以运行

sgrshh29 · 发表于 2007-10-14 16:26

QUOTE:

以下是引用sml在2007-10-14 15:11:17的发言：

哪位热心人帮我看看，为什么我把yxy博附件中的代码复制在另一个Excel的listview控件中，还是运行后，出现对方框　用户定义类型未定义　代码红色部分Dim ITM As ListItem

代码在yxy博老师附件中可以运行

看看vbe中的引用有没有丢失什么？如果有丢失，重新引用一下。

DJFN · 发表于 2007-10-16 10:57

把窗体中原来的listview删掉再重新添加上去

		自动登录	找回密码
密码			免费注册