|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题2 K" H+ z+ N/ {. p( _* g
程序单详见下面帖8 n# P8 @% W" h6 I( y
http://postp.net/viewthread.php?tid=2432&extra=page%3D1
, S- o5 U; v9 _* ~3 S补充说明
% o% v! v, o, ]% o7 Z9 E8 y有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.
# T4 D" N" h( L* k
* a9 T: ]% O" q* V! i5 p找到下面的代码." @9 F4 T8 [, X/ J
2 P7 j4 r, E4 e3 ~- ^% ]! K
sfileDir = "D:\nc\" : T1 K* f; b$ y. k2 i
' -- Prompt for a report name
: J" B/ j. \ Q+ L9 X0 lstrReportName = AskString("请输入报表文件名") 3 ~1 |" M# h6 k
If Len(Trim(strReportName)) = 0 Then Exit Sub
6 Z& T% W8 U, q- m' -- Check for EXT
( m6 h7 V X# a$ s4 { W U3 fIf Len(strReportName) <= 5 Then& Z/ z5 W: Y+ G6 u% S; ?
strReportName = strReportName & ".html"4 O& e: d: \; r% N q7 ~
Else# e" M9 k* P7 p9 ^
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html": X& h d/ f4 Y( K# F5 l+ J' R
End If. `9 |2 G" I3 u# y4 E1 H
9 I! Y: n- [& R# C! Z
改为
" o6 Q C, z6 R( y a7 {2 U; v) A! `/ t8 l2 L3 l, r+ S
|
|