百家讲坛明朝全集:无效的过程调用或参数....请高手指点
来源:百度文库 编辑:神马品牌网 时间:2024/10/06 21:03:40
Out(4) = Space(46 - LenB(StrConv(txtdw, vbFromUnicode)))
我运行VB就告诉我
实时错误'5':
无效的过程调用或参数
请高手指点帮助解决一下
If Dir(文件) <> "" Then
Kill 文件
End If
Open 文件 For Output As #1
Adodc1.Refresh
Do While Not Adodc1.Recordset.EOF
txtdw = txtfields(7).Text
txtlxr = txtfields(8).Text
txtdh = txtfields(9).Text
打印小
Adodc1.Recordset.MoveNext
If txtdw <> txtfields(7).Text Or Adodc1.Recordset.EOF Then
lxr = Left(txtlxr, 4)
Out(4) = Space(46 - LenB(StrConv(txtdw, vbFromUnicode)))
Out(5) = Space(8 - LenB(StrConv(lxr, vbFromUnicode)))
Print #1, "憙" + "▲单位:" + txtdw + Out(4); "联系人:" + lxr + Out(5); "电话:" + Left(txtdh, 21)
End If
Loop
Close #1
这个是较完整的代码
Out(4) = Space(46 - LenB(StrConv(txtdw, vbFromUnicode))) 我运行上面的代码后就告诉我出错了....
我运行VB就告诉我
实时错误'5':
无效的过程调用或参数
请高手指点帮助解决一下
If Dir(文件) <> "" Then
Kill 文件
End If
Open 文件 For Output As #1
Adodc1.Refresh
Do While Not Adodc1.Recordset.EOF
txtdw = txtfields(7).Text
txtlxr = txtfields(8).Text
txtdh = txtfields(9).Text
打印小
Adodc1.Recordset.MoveNext
If txtdw <> txtfields(7).Text Or Adodc1.Recordset.EOF Then
lxr = Left(txtlxr, 4)
Out(4) = Space(46 - LenB(StrConv(txtdw, vbFromUnicode)))
Out(5) = Space(8 - LenB(StrConv(lxr, vbFromUnicode)))
Print #1, "憙" + "▲单位:" + txtdw + Out(4); "联系人:" + lxr + Out(5); "电话:" + Left(txtdh, 21)
End If
Loop
Close #1
这个是较完整的代码
Out(4) = Space(46 - LenB(StrConv(txtdw, vbFromUnicode))) 我运行上面的代码后就告诉我出错了....
你单步调试到Out(4) = Space(46 - LenB(StrConv(txtdw, vbFromUnicode))) 时出错?有可能你46-了一个比46大的数,也就是space(负数),在我的机器上就是这样,space(-1)的错误信息和你的一样
无效的过程调用或参数....请高手指点
无效的过程调用或参数 (vb)
调用子过程时出错(错误的参数号或无效的参数赋值)
ASP无组件上传提交的错误,无效的过程调用或参数: 'LEFTB'
急,在线等待回答,出现错误:无效的过程调用或参数: 'chr'
为什么提示"运行时错误"5",无效的过程调用或参数"
Microsoft VBScript 运行时错误 错误 '800a0005' 无效的过程调用或参数
我的机子开机时总是跳出一个:运行时错误“5“,无效的过程调用或参数。这是怎么回事?
vb中“无效的过程或参数”这是怎么回事?
Microsoft VBScript 运行时错误 错误 '800a0005'无效的过程调用或参数: 'instr'/moviel,asp,行131