|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题8 ~8 V9 A$ m: n* R
程序单详见下面帖
3 }; O5 s; K0 Y" E% J7 P* Bhttp://postp.net/viewthread.php?tid=2432&extra=page%3D1
6 }2 n# y2 q5 k. c补充说明
7 n' Y, q7 M2 @9 q7 ~有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试./ T- q+ X. G( g0 ?: R' g5 L4 \
( U9 V$ R l. [, N$ I) |$ g找到下面的代码.7 A6 n9 Z3 C/ f0 B5 N3 O2 G) U
9 n1 j3 o. \7 l9 e sfileDir = "D:\nc\"
" P. h, _$ E* Y" a4 S# x, M7 D' -- Prompt for a report name+ S& s' F6 x1 C
strReportName = AskString("请输入报表文件名") $ G. {. w& s; h+ ^
If Len(Trim(strReportName)) = 0 Then Exit Sub
& ~8 L# r: D8 c% V' -- Check for EXT, W& B3 o) p' ^' i$ l
If Len(strReportName) <= 5 Then4 p, c; t6 ?1 z5 N" }- H$ ?/ x4 \
strReportName = strReportName & ".html"( E9 S# S1 F! K) S2 u4 t/ A
Else
3 |- V3 C1 Y1 W0 I/ U* y& v( ~ If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"% h; ]( X9 A5 K" C" S
End If; W. B' x Y6 K9 I3 m+ V5 ^
/ u. r: H, Z3 u
改为
( P( P5 V4 U: r0 ~
- J: ~$ F7 l/ p |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2011-6-12 06:52:32
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
发表于 2011-6-12 10:15:22
