|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题9 Q+ A5 ?% q1 x9 p3 T% r" X
程序单详见下面帖( _8 H6 R$ }' [4 m
http://postp.net/viewthread.php?tid=2432&extra=page%3D11 p9 k& z+ L4 \; |/ R0 ?1 b/ Y8 e Q% H
补充说明
7 M: ]+ h4 K. ?$ `0 J3 w有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.
3 `' {' Z# J2 |% u2 Q0 C& q6 H
* M3 h- _2 ?+ P找到下面的代码.
. l X0 d9 `, i! L( J
, Q' T. Y$ c+ [' ] sfileDir = "D:\nc\" ~8 S! a/ W$ a# c) S1 j1 b4 P/ v
' -- Prompt for a report name
; |& \9 c/ Q% R# I" ? t/ dstrReportName = AskString("请输入报表文件名")
1 B6 A9 V3 C1 h1 |# N4 I5 }1 ~If Len(Trim(strReportName)) = 0 Then Exit Sub
% v8 i# |% E% H9 b1 c- H' -- Check for EXT
- {6 }* N5 v. e5 C- w0 m9 B! t0 pIf Len(strReportName) <= 5 Then5 q# { f& R) n+ H
strReportName = strReportName & ".html"
' s, v8 _9 X2 |Else
+ }: k8 J9 }# t( { h$ O If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
{# h k# d8 e# x+ H$ c# ~End If: H h2 \! ]4 m% ]# X/ e
' N4 i, H# a. h; Q) w改为9 e4 B- V% D5 R2 @' W
% E) F* V$ ^: C$ {4 e- C |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2011-6-12 06:52:32
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
发表于 2011-6-12 10:15:22
