|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题8 o& N" J8 l! m
程序单详见下面帖0 |$ c& Q3 a, O$ y9 A+ n
http://postp.net/viewthread.php?tid=2432&extra=page%3D1
+ B$ W# I% x: n* n; [5 r补充说明
3 [2 C6 R; Y7 _ f* [) D. ?有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.0 H% S$ m- g) E9 O7 G/ W9 z# C- u" A D
. K7 P# ~% A4 L6 ?' T找到下面的代码.
: R! p H: J+ s3 E$ C. C4 M9 A& ?$ T/ }% j
sfileDir = "D:\nc\"
8 U0 v- C& t9 P" O, o+ E' -- Prompt for a report name# G( ~; ]1 E2 v# H4 c4 M- G. {
strReportName = AskString("请输入报表文件名") , }+ y- S- H1 r5 x
If Len(Trim(strReportName)) = 0 Then Exit Sub5 D9 F. r* i' P! m+ d! i
' -- Check for EXT
- G+ U- L( G! q/ {7 OIf Len(strReportName) <= 5 Then+ }: k1 c1 o/ ?+ w9 Z5 q
strReportName = strReportName & ".html"+ @, y4 N3 B5 n% B. l9 v, ^' F
Else, |( B- `0 @# z3 Y9 G. c; p
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"; R4 r6 b3 E% R5 i. X* W9 c0 ]
End If% d: c, m' b. H& B- w( d
j, q/ r$ E5 {% J7 S% Z ~* K
改为- Q+ ]8 n" S) ?1 y8 f; [' D
4 {! h; v$ r% C& p5 \4 I0 Q |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2011-6-12 06:52:32
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
发表于 2011-6-12 10:15:22
