|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题2 `8 u3 b% l c# L. O" v2 U
程序单详见下面帖8 x2 U' y0 Z2 Y/ H! B8 P5 a
http://postp.net/viewthread.php?tid=2432&extra=page%3D12 |& K+ R% d# z2 E" M0 e0 x9 @
补充说明( N' I& g v7 ~. X( V; k
有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.
; i+ g1 b% w& C
9 `4 | W% z) x) C. F找到下面的代码.7 w/ ~$ {$ L+ T" s2 u. {1 _# {. O. T
7 s7 M3 {# G. D2 o* w" y sfileDir = "D:\nc\" " ~ f/ |) [- w! g g7 Y
' -- Prompt for a report name
6 P/ ?( u# _9 K4 {strReportName = AskString("请输入报表文件名")
9 @; S. M6 A; q/ f( r1 KIf Len(Trim(strReportName)) = 0 Then Exit Sub
" [6 B7 W" I$ R* X. C+ D; A T' -- Check for EXT1 x/ f- _0 F; b- C
If Len(strReportName) <= 5 Then
( e5 s5 y( d! q c/ f strReportName = strReportName & ".html"
; Z, h$ r$ L4 C* KElse' b ^) j! \; R2 G N
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"6 H+ E" q* s% p
End If
9 t( m3 \' S3 F2 Y1 P- O, A7 B3 ?" }* L$ D) b& e0 R1 x( P
改为
. a2 s. X: |. `5 R% {
4 j) h" g. \0 W8 n' ]! l& n3 R |
|