|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题
: z; l0 S8 G' C- y( }" ]程序单详见下面帖% V" C/ a% d6 @% u
http://postp.net/viewthread.php?tid=2432&extra=page%3D1. d! I+ z1 T: |; ]6 D5 ~
补充说明
2 M1 P) @8 k- ?/ g1 S) w' r有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试. z5 H! e1 y3 q% Q z
6 ^+ n6 `5 C% ^2 M/ a
找到下面的代码.7 D4 M+ E4 O( o' f7 n
; O1 M# t. w- E+ J
sfileDir = "D:\nc\" . M( b3 ^. J! o- c# ^. W* F
' -- Prompt for a report name
0 w& C5 [6 [5 Z9 N0 X/ ystrReportName = AskString("请输入报表文件名") 8 H3 d+ [) c/ e7 B8 e
If Len(Trim(strReportName)) = 0 Then Exit Sub
& j5 y& M+ g/ z6 I0 f8 v `( B' -- Check for EXT
* d! _9 ?3 U3 u7 y% z. ~7 ^" QIf Len(strReportName) <= 5 Then
! k1 [6 C) K: T/ a; Q strReportName = strReportName & ".html"
' P( N: p3 a7 [5 g4 g# h$ Y. u( c9 S) bElse
, L' l8 }; ~4 m0 T# H2 ?/ p$ J If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
+ L; L) B z7 {3 p* sEnd If! _+ G b$ m8 @8 w
: q4 [0 V4 L( u: o改为" X& P Z' o9 q$ N% {
V# A9 b, k- A$ K6 L7 X% |( C- b |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2011-6-12 06:52:32
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
发表于 2011-6-12 10:15:22
