Question

这是我的代码

Sub filllistview()
  Dim itmX As ListItem

  Main

  rs.Open " select * from hatw order by id desc  ", dbconn, 3, 2

  If Not rs.EOF Then
    ListView1.ListItems.Clear
    rs.MoveFirst

    Do While Not rs.EOF
      Set itmX = ListView1.ListItems.Add(1, , rs!id)
      itmX.ListSubItems.Add , , rs!no_of_text
      itmX.ListSubItems.Add , , rs!date_of_text
      itmX.ListSubItems.Add , , rs!Title
      rs.MoveNext
    Loop
  Else
    ListView1.ListItems.Clear
  End If

  rs.Close
  Set rs = Nothing
End Sub

当我点击 F5 时会发生此错误：

找不到
方法或数据成员

错误突出显示了这句话：

ListView1.ListItems.Clear

Answer 1

您对需要添加项目引用的预感似乎是正确的。根据{{3}}，您需要添加对MSCOMCTL.OCX的引用。在Excel VBA编辑器参考对话框中，我不得不搜索它（它不是预定义的引用），但在我的机器上找到它：C:\Windows\SysWOW64\MSCOMCTL.OCX。找到控件后，它在参考列表中显示为Microsoft Windows Common Controls 6.0 (SP6)。也许它会自动列在Access中。只要我添加参考线，如

Dim LV as ListView

干净利落地编译。

在vb6中找不到方法或数据成员？

1 个答案: