我要活跃主题
查看: 17425|回复: 9
用vb二次开发sw时弹出错误：“对象变量或with块变量未设置”
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
才可以下载或查看，没有帐号？
用vb二次开发sw时，重新生成零件图时总是弹出错误：“对象变量或with块变量未设置”
而同样的方法有的零件就可以有的就不行，好象是旋转体就可以拉伸是不可以，不知道为什么！各位高手有谁知道这是怎么回事？请指教，谢谢！
&&程序大概如下：swapp,part,l0...这些变量都已经定义。
Private Sub Command1_Click()
Set swapp = CreateObject(&sldworks.application&)
swapp.Visible (True)
Set part = swapp.OpenDoc(App.Path & &\A型\2孔.sldprt&, 1)
Set part = swapp.ActivateDoc(&quotart1&)
part.Parameter(&d1@草图1&).SystemValue = l0/1000
....................
....................
part.EditRebuild
part.EditRebuild
本人正在进行此方面工作。可以交流一下：出现提示：“对象变量或with块变量未设置”的问题很多。建议你在SW中录制你所要进行的操作的完整的宏，复制到VB中，修改其中初始化的两条即可。另外OpenDoc应为OpenDoc6。从宏中可以看出来。
录制宏后运行时同样弹出此错误！这是不是和vb 没有关系啊？
解决了么？
我干过二次开发，不知能帮上忙不
&&&&&没有！
&&&&&我是第一次搞这些而且身边没人教，所以遇到这个问题不知道怎么解决，我试了好多办法都不行！更奇怪的是有的零件可以有的不可以，而且我把不能用的零件的程序拷贝到能用的零件的程序中修改成适合的尺寸后还是不能用所以我怀疑是sw中某些东西没设置好但就是不知道怎么弄。如果你认为是那有问题请给个意见，谢谢！
把这些都定义一次看看能解决么&
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long
Dim Annotation As Object
Dim Gtol As Object
Dim DatumTag As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object&
要定义在public内
终于搞定了！！是下面的两句出错了！
Set part = swapp.OpenDoc(App.Path & &\A型\2孔.sldprt&, 1)
Set part = swapp.ActivateDoc(&quotart1&)
打开的 文件名和建立的名必须一样，只要把第二句的&part1&改为“2孔”就可以了。这是我在无意中发现的。
谢谢大家对我的帮助！把问题告诉大家，希望对大家有用！
谢谢，不过我发现还不是简单的这样的原因所在
我也遇到同样的问题！期待高手指点。
我也遇到同样的问题，期待高手指点
Powered by对象变量或with块变量未设置————问题根源
对象变量或with块变量未设置————问题根源
————【SQL数据库】
由于今年的专业课比较多，并且不太好学，所以在临近考试的这段时间里我一直在突击专业课，一天就24个小时，所以我的学生信息管理系统就被我抛弃了，但是我并没有真正的抛弃，所以我今年暑假就牺牲我的假期来学习我的学生信息管理系统，经过这么长时间的调试，总算能正常的运行了，在最近这两天的调错的过程中，遇到最多的问题就是下面这个问题
&下面我就总结一下这个问题的根源：
出现这种情况都是因为数据库未连接成功导致，既然我们知道了问题的根源，那就好办了，我们必须围绕数据库的连接问题进行调试。
1.首先我们必须大力度检查的两条语句
&span style=&font-size:18&&&span style=&white-space:pre&& &/span&txtSQL = &select * from student_Info&
Set mrc = ExecuteSQL(txtSQL, MsgText)&/span&
之所以这么强调这两句的重要性，是因为我在一次调试的过程中实在没有解决方法了，我就把源码中的这两句粘贴过来，
竟然出乎意料的成功了，我有参考了很多博客才，才知道这两句中的任何一个地方都不能出错，包括一个空格都不能少
或者多，当然还包括出错的地方附近的这两句代码都要检查。
2&.服务管理器没有启动服务
3.connectstring里面的用户名或者密码错误,典型代码是模块中的
&span style=&font-size:18&&&span style=&font-size:24&&connectstring = &filedsn =studentinfo.UID =PWD =123&&/span&&/span&
当程序执行executesql（）这个函数的时候，会触发connectsing（），所以说connectstring（）在连接数据库的过程中起着至
关重要的作用，所以我们必须把connectstring（）中的内容完全写正确！
4.数据源(ODBC)里面“文件DSN”里有添加数据库
5.“企业管理器-安全性-登陆”这里面访问的默认数据库没有设为你要访问的数据库，在属性里
面可以更改
以上五点内容在我的调错过程中，足以解决这个错误！
我的热门文章
即使是一小步也想与你分享对象变量或with块变量未设置_百度知道☆★对象变量或with块变量未设置★☆_百度知道金蝶专业版提示运行时错误91：未设置对象变量或with&block变量
金蝶专业版客户端提示运行时错误91：未设置对象变量或with block变量，如下图：
解决方法： &
【第一种方法】：把你的计算机名和计算机用户名改成英文把软件和SQL都重装下就可以了还不
行就得重做系统
【第二种方法】：就是用regvr32.exe注册ufmoney.dll这个文件
ufmoney.dll在C:\WINDOWS\system32\UFCOMSQL\ufmoney.ocx&
【第三种方法】：com
应用程序注册失败（运行中输入命令“dcomcnfg”，“组件服务”——“计算机”——“我的电脑”——“com 应用程序”，
看这个下面是不是什么东西都没有的，我的当时没有），解决办法比较简单，“cmd”命令打开命令行窗口，输入“msdtc
-uninstall”，
然后再输入“msdtc -install”（大致就是先下载了，再安装）。
然后你会看到“com 应用程序”下已经有很多组件了。登陆就ok了。
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。}