ActiveX部件不能创建对象!求助!!!

lizhen318320 2010-11-28 07:03:36
Public Sub ListAllClients(ByRef lvw As ListView)
Dim objClients As New CClients
Dim rstClients As CClients

'Find的两个参数均取默认值,此时查找全部的客户
Set rstClients = objClients.Find

'将查找到的客户集合添加到列表控件中
ClientsToListview rstClients, lvw


Set objClients = Nothing
Set rstClients = Nothing

End Sub
运行到 Set rstClients = objClients.Find
的时候,提示ActiveX部件不能创建对象,啥情况啊?
...全文
99 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
king06 2010-11-30
  • 打赏
  • 举报
回复
少这个CClients类定义
lizhen318320 2010-11-30
  • 打赏
  • 举报
回复
[Quote=引用 1 楼 caozhy 的回复:]

Dim rstClients As CClient
这个定义错误。
[/Quote]我换台电脑就没问题了,不知道为什么,是不是我的电脑少了什么DLL文件啊什么的...还是VB开发组件本身就不太稳定啊?
vbman2003 2010-11-30
  • 打赏
  • 举报
回复
你把Find这个函数贴上来看看.....
lizhen318320 2010-11-30
  • 打赏
  • 举报
回复
[Quote=引用 5 楼 king06 的回复:]

少这个CClients类定义
[/Quote]它的定义我在别的地方已经定义了,应该不是这个问题,还是很谢谢你
孤独剑_LPZ 2010-11-29
  • 打赏
  • 举报
回复
Dim rstClients As New CClients
threenewbee 2010-11-29
  • 打赏
  • 举报
回复
[Quote=引用 2 楼 asftrhgjhkjlkttttttt 的回复:]
Dim rstClients As New CClients
[/Quote]
我觉得是 RecordSet,因为是 rst 前缀。总之,CClients 是不对的。
threenewbee 2010-11-28
  • 打赏
  • 举报
回复
Dim rstClients As CClient
这个定义错误。

863

社区成员

发帖
与我相关
我的任务
社区描述
VB COM/DCOM/COM+
c++ 技术论坛(原bbs)
社区管理员
  • COM/DCOM/COM+社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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