|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题
! T- x- m. m1 }! w. i程序单详见下面帖9 h& y& w+ a3 i0 x6 m( A, m" t. [
http://postp.net/viewthread.php?tid=2432&extra=page%3D17 E4 I6 s' X# r$ k* T
补充说明. ?! r, `% U, K; A; R" J
有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.3 b% Z+ k1 h h6 l0 E
$ ~! D6 `; l' X9 W0 m
找到下面的代码.
% O' J5 J( b/ g: h# g+ a8 v p
5 ~0 ` A0 p' P4 P2 ~ e sfileDir = "D:\nc\"
+ h6 n+ }% Y- Z9 U% h3 o# n% U4 h5 r7 n' -- Prompt for a report name
|( C7 q- C7 w* jstrReportName = AskString("请输入报表文件名") . ^. {* e. a8 S# c c1 G0 z! T
If Len(Trim(strReportName)) = 0 Then Exit Sub- Z9 X0 h2 Z3 Z' X
' -- Check for EXT
( Z- v( j& F3 Z1 P* bIf Len(strReportName) <= 5 Then
6 R$ [/ I1 B' T+ w strReportName = strReportName & ".html"
# J% Y7 d. b% g. hElse. z( l# J; p* U7 Z
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"( _4 c$ t' W5 Z3 w7 ~+ H
End If9 a6 U, a) s2 M7 V5 h/ z6 _% q
/ J9 A1 M2 Q' h! r% ^ w改为
2 H: w [9 z, O; S2 u$ U
: J. K' |8 F- l ?. P, P6 d |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2011-6-12 06:52:32
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
发表于 2011-6-12 10:15:22
