|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题8 W, b( d, A9 F4 a6 |+ g
程序单详见下面帖- L; n! X1 B m& M/ a+ n7 I
http://postp.net/viewthread.php?tid=2432&extra=page%3D1+ K4 q3 E' |. Z I# a. T
补充说明
# f1 ^5 Z* x% h [; K有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.
1 X& ~4 v$ W& b1 j1 ^: f8 g1 h* i! ~+ E J* n
找到下面的代码.7 F h* ~4 L' u4 z F/ w0 c. a3 Q4 e
$ i' W' R2 _$ G G sfileDir = "D:\nc\"
0 E0 ]9 `! H r3 v: b' i' -- Prompt for a report name
" u7 ]- m2 g, m' n! mstrReportName = AskString("请输入报表文件名") % Y* E2 [0 Y; m
If Len(Trim(strReportName)) = 0 Then Exit Sub: T" Z a) ^+ k9 `* G. I
' -- Check for EXT: O! v- C4 b4 [) p% F
If Len(strReportName) <= 5 Then2 @% |. F$ m! p) E) o
strReportName = strReportName & ".html"7 ^8 H) a8 B" D, [
Else
9 @ |% T5 l& B Y6 U. N6 \ If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html") G1 `0 w2 Z' K2 F6 ~" C% k
End If4 ^) ^5 n ~9 W3 ]" e2 E" V
* X8 w& h1 _; L9 O改为
8 `0 l( l; g' d' N' n1 W! h
7 c' A: I7 [& H |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2011-6-12 06:52:32
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
发表于 2011-6-12 10:15:22
