社区
VB基础类
帖子详情
VB中,实时错误‘13’,类型不匹配
jm_qinqinnew
2012-06-29 01:14:35
Err.Raise Err.Number, Err.Source, Err.Description 运行到这边就提示“类型不匹配”。在其他机器上是可以运行的,在我这边机器上就不能运行,编译的程序都用不了。觉得很奇怪。请大家帮我看看是什么问题。谢谢!!!
...全文
1501
3
打赏
收藏
VB中,实时错误‘13’,类型不匹配
Err.Raise Err.Number, Err.Source, Err.Description 运行到这边就提示“类型不匹配”。在其他机器上是可以运行的,在我这边机器上就不能运行,编译的程序都用不了。觉得很奇怪。请大家帮我看看是什么问题。谢谢!!!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
赵4老师
2012-06-29
打赏
举报
回复
Raise 方法
产生运行时错误。
语法
object.Raise number, source, description, helpfile, helpcontext
Raise 方法具有下列对象限定符和命名参数:
参数 描述
object 必需的。总是 Err 对象。
Number 必需的。Long整数,识别错误性质。Visual Basic 错误(既有 Visual Basic 定义的错误也有用户定义的错误)的范围在 0–65535 之间。从 0–512 的范围保留为系统错误;从 513–65535 的范围可以用做用户定义的错误。当在类模块中将 Number 属性设置成自己的错误代码时,可将错误代码号添加到 vbObjectError 常数上。例如,为了产生错误号 513,可将 vbObjectError + 513 赋值到 Number 属性。
source 可选的。字符串表达式,为产生错误的对象或应用程序命名。当设置对象的这一属性时,要使用窗体 project.class。如果没有指定 source,则使用当前 Visual Basic 工程的程序设计 ID。
description 可选的。描述错误的字符串表达式。如果没有指定,则检查 Number 的值。如果可以将错误映射成 Visual Basic 运行时错误代码,则将 Error 函数返回的字符串作为 Description 使用。如果没有与 Number 对应的 Visual Basic 错误,则要用到消息“应用程序定义的错误或对象定义的错误”。
helpfile 可选的。帮助文件的完整限定的路径,在帮助文件中可以找到有关错误的帮助信息。如果没有指定,则 Visual Basic 会使用 Visual Basic 帮助文件的完整限定的驱动器、路径和文件名。
helpcontext 可选的。识别 helpfile 内的标题的上下文 ID,而 helpfile 提供有助于了解错误的描述。如果省略,则使用处理有关错误的 Visual Basic 帮助文件的上下文 ID,该 ID 与 Number 属性对应。
说明
除了 number 之外,所有参数都是可选的。如果使用 Raise 而不指定一些参数,并且 Err 对象的属性设置含有未清除的值,则视这些值为错误的值。
Raise 被用来生成运行时错误,并可用来代替 Error 语句。当书写类模块时要生成错误,Raise 是有用的,因为 Err 对象比 Error 语句可能提供更丰富的信息。例如,用 Raise 方法,可以在 Source 属性中说明生成错误的来源,可以引用该错误的联机帮助。
jm_qinqinnew
2012-06-29
打赏
举报
回复
程序都是一致的。操作也是一样的。
人生无悔
2012-06-29
打赏
举报
回复
在其他机器上是可以运行的,在我这边机器上就不能运行
應該只是某些操作會出現此問題,比方說有些值有時新操作,有時不用操作,有操作時才有錯
f8調試下原程序,出錯時的執行的步驟重新執行一遍,應該會有錯可調的
解决
VB
A运行时
错误
13
类型
不匹配
问题
解决
VB
A运行时
错误
13
类型
不匹配
问题 先说解决方法:找到出错的语句以后给里面的参数改
类型
,使其互相兼容。 比如:给单元格Cells()外面套个马甲 Val() 比如:给数字外面套个马甲Int() 详细的排查过程后面会慢慢讲……这是一个翻转灵异的奇怪问题。 我这边出问题的例子参见杨洋老师的书《深入浅出Excel
VB
A》第3章,3.2.1节,我原样敲仅
VB
E里面运行就报错了: Sub Scores() Dim i For i = 3 To 5 Cells(i, 6) = C
VB
6 调用DLL
错误
49
类型
不匹配
已解决
没有返回值函数
VB
6 调用报
错误
49 ,把声明改成sub 见代码 Private Declare Function SetDllDirectory Lib "Kernel32" Alias "SetDllDirectoryA" (ByVal path As String) As Long Private Declare Sub ICE_IPCSDK_Init Lib "ice_ipcsdk.dll" () Private Declare Sub ICE_IPCSDK_SearchDev Lib "ice_
ADODB.Recordset作为函数参数传递的
类型
不匹配
错误
代码如下:第7行出现了 “
类型
不匹配
”(Type dismatch)的运行时
错误
,代码
13
,
中
文搜索引擎和Bing没有查出原因,最后还是靠Google找到了解决方法:就是在第7行前加Call。 原因可能是因为调用的函数没有返回值,所以需要Call一下。 Public Sub GetFromAccess() Dim myCmd As New ADODB.Command Dim myR...
VB
运行时
错误
代码解释
VB
运行时
错误
代码解释 3 ---- 无 GoSub 返回 5 ---- 无效的过程调用或参数 6 ---- 溢出 7 ---- 内存溢出 9 ---- 下标越界 10 ---- 该数组被固定或暂时锁定 11 ---- 除数为零
13
----
类型
不匹配
14 ---- 字符串空间溢出 16 ---- 表达式太复杂 1
高手帮忙解决--
类型
不匹配
我是新手请高手帮帮忙 Microsoft
VB
Script 运行时
错误
错误
800a000d
类型
不匹配
/search/index.asp,行 17 %@LANGUAGE="
VB
SCRIPT" CODEPAGE="936"%> % option explicit dim conn,connstrSet conn = Server.Creat
VB基础类
7,763
社区成员
197,605
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章