|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题) S% Q( F6 F: v) W
程序单详见下面帖9 r) ]7 _' H( T8 @
http://postp.net/viewthread.php?tid=2432&extra=page%3D19 F& w/ U( u3 }3 m K3 H( N
补充说明4 G8 a R5 M- M" C+ m
有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.
$ b7 r4 k+ S! t: D3 `8 @, U. a) ?% C+ X) G
找到下面的代码.
1 m/ l, H9 D6 v4 d( D
6 D! t. I4 \% x% ~0 C+ T$ | sfileDir = "D:\nc\" ) P4 ?$ A9 u. o; S
' -- Prompt for a report name' r. M$ Y* k% s9 r0 c# u/ R! Q
strReportName = AskString("请输入报表文件名") 1 {+ o2 T9 C+ N r) Q# J
If Len(Trim(strReportName)) = 0 Then Exit Sub
( a- Z3 E/ C/ P' -- Check for EXT
! v4 K% i @: F3 kIf Len(strReportName) <= 5 Then6 C' z1 @ [2 g3 D
strReportName = strReportName & ".html"
. z, F+ V" Y2 v0 n5 ^Else
' S1 q9 ]. D( h6 ~: x0 D If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
3 T+ o* g+ m8 F" S, R, D' jEnd If
! G/ |! X. e; _
7 n* A3 V) s- ~ A8 ]9 N( u) \& Y3 E改为
& A& m; X: `% R5 Z- m& U- u: ^7 j3 _3 x9 O. A% f7 M
|
|