|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题
3 B. X* U( ~2 W/ j; I+ x+ S程序单详见下面帖
. `; E+ a. ~+ khttp://postp.net/viewthread.php?tid=2432&extra=page%3D1, [% j" c" S& s' b" ]: s. r4 N
补充说明
; e+ l# u; X! k6 [ W/ Z有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.
2 T8 e7 _( ?( Z/ ^: S" S9 ~# A1 m( i3 B5 D
找到下面的代码.
6 z, z. E& f6 R0 X* y; ]# B1 ?* Q: \; i1 T5 ^# w; R
sfileDir = "D:\nc\"
6 ^. u: | S2 q- \, h O' -- Prompt for a report name
9 H/ v6 I% q; O* ^; F( estrReportName = AskString("请输入报表文件名")
% u, p! P4 G' p9 C! @If Len(Trim(strReportName)) = 0 Then Exit Sub6 ?' n) a9 E7 }: r/ U
' -- Check for EXT
* p' X) m; N) D* z* j. s+ Y& o* fIf Len(strReportName) <= 5 Then& U% q8 {0 @3 \+ Y8 d* t+ j6 m
strReportName = strReportName & ".html"
: \0 B1 Y: Q3 r; O" f7 jElse1 Y& V6 S9 ^, Y' O! l2 R8 T6 @8 c
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
/ F/ Y! z$ o0 n8 N) bEnd If
9 A9 Q. D6 R; n f. P4 |7 [ L) \. A
改为4 H0 E# c+ m* D# N9 D
* p) X' T5 h" T8 H' s& {# C |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2011-6-12 06:52:32
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
发表于 2011-6-12 10:15:22
