|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题( A# i; z8 u- S3 G! M/ s) K
程序单详见下面帖1 f3 O; X) g- _( ?% U) w
http://postp.net/viewthread.php?tid=2432&extra=page%3D15 ]/ B* l: J( X- A; L" o1 s
补充说明
) T4 l+ n( {' I( a& L有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.
: |* b9 ~$ b4 X" f" r* B. @9 ?& p; \5 W. Q: G8 G, B
找到下面的代码.
/ j6 j# |6 ]1 \- a$ u8 g9 u5 ^+ N1 g) X N9 k
sfileDir = "D:\nc\"
# N' H h* c. }) G8 b( S* v' -- Prompt for a report name; ~1 G& A, l2 i: c& ~/ U0 j
strReportName = AskString("请输入报表文件名") 0 J# g$ U- e9 o+ B2 e1 @* e' e
If Len(Trim(strReportName)) = 0 Then Exit Sub- J) J" L5 v: E5 Q4 e
' -- Check for EXT; ?+ A1 Y6 F$ v6 H: O% L* {
If Len(strReportName) <= 5 Then! I6 f' e" j; V" `" `; r: b
strReportName = strReportName & ".html". R4 ?" D( }2 [; }
Else
) a8 p* ?% b1 o, e* i+ R If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"0 f7 W2 N. M, x9 ^8 ?. m- A
End If
/ u; ]7 _8 q6 A0 _: m( d+ h% `( F/ O7 y$ S2 J, u1 Y
改为
0 ?& u4 h) ?; w; Z
2 ?8 u/ A7 y! B$ p9 U5 Y7 A* _ |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2011-6-12 06:52:32
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
发表于 2011-6-12 10:15:22
