Dim Itm As ListItem 用户定义类型未定义

hkcrystal · 发表于 2010-10-26 13:38

Private Sub UserForm_Initialize()
Dim Itm As ListItem '总是在此处报错用户定义类型未定义

With ListView1
      .ColumnHeaders.Add , , "定单号", 40, lvwColumnLeft
      .ColumnHeaders.Add , , "产品型号", 50, lvwColumnCenter
      .ColumnHeaders.Add , , "数量", 30, lvwColumnCenter
      .ColumnHeaders.Add , , "单价", 50, lvwColumnRight
      .ColumnHeaders.Add , , "金额", 50, lvwColumnRight
      .ColumnHeaders.Add , , "发货日期", 60, lvwColumnRight
      .View = lvwReport
      .Gridlines = True
      For i = 1 To Sheet2.[A65536].End(xlUp).Row
         Set Itm = .ListItems.Add()
         With Sheet2
            Itm.Text = .Cells(i, 1)
            Itm.SubItems(1) = .Cells(i, 2)
            Itm.SubItems(2) = .Cells(i, 3)
            Itm.SubItems(3) = Format(.Cells(i, 4), "0.00")
            Itm.SubItems(4) = Format(.Cells(i, 5), "0.00")
            Itm.SubItems(5) = Format(.Cells(i, 6), "yyyy-mm-dd")
         End With
      Next
End With
End Sub

wwwruc · 发表于 2010-10-26 13:49

我怎么没看见我的电脑里有listitem这个对象。

wwwruc · 发表于 2010-10-26 13:51

试下： set Itm = new ListItem

zjh200010 · 发表于 2010-10-27 23:30

我也遇到这个问题，请帮忙

hkcrystal · 发表于 2010-10-28 13:23

原帖由 wwwruc 于 2010-10-26 13:51 发表
试下： set Itm = new ListItem

还是不行

zjh200010 · 发表于 2010-10-31 22:44

我可以了，可能是有一个程序没安装

hkcrystal · 发表于 2010-12-9 11:18

我也是遇到这个问题了有没有可以解决的办法？

hkcrystal · 发表于 2010-12-10 08:24

各位前辈有没有好的解决方法

camle · 发表于 2010-12-10 08:37

去掉那句,没什么影响吧?

hkcrystal · 发表于 2010-12-10 08:39

原帖由 camle 于 2010-12-10 08:37 发表
去掉那句,没什么影响吧?

去掉那句之后ListView显示不正常

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

[求助] Dim Itm As ListItem 用户定义类型未定义