|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题* {! B; e* C& n5 z! X7 Q4 b" N
程序单详见下面帖 Z [4 W! B! y1 l* O
http://postp.net/viewthread.php?tid=2432&extra=page%3D1/ G$ t( W" y, S" r8 Y7 ~3 i
补充说明, b) T8 e$ Q& E0 x& L( u* h$ D; X
有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.
% C1 i& H7 K9 Y7 U2 Q
( T( Q/ ?. v. L( d( S找到下面的代码.
% u+ P3 h2 s; `( K. y: e0 P
. h+ s( X% R6 j# i' I& ^ sfileDir = "D:\nc\"
+ k9 D' i. W, A' -- Prompt for a report name
* V% u: \! |# d$ S' v0 bstrReportName = AskString("请输入报表文件名")
8 G, \1 ` G: T4 r4 eIf Len(Trim(strReportName)) = 0 Then Exit Sub7 D, F. m% O9 `& x5 a5 a% ^
' -- Check for EXT
7 W( f$ a8 T- x. D2 v; UIf Len(strReportName) <= 5 Then
2 O3 Z% ^- ]' h strReportName = strReportName & ".html"7 ?, o' L$ X( B; J2 n. Z# H' a
Else
2 A/ _9 ]+ a/ F I1 _ f7 i If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"4 X( h6 n3 S7 }- i- Y% |
End If) w {9 b4 Q( p, k2 ~" U# C
- p7 F9 _: c3 u- Z; S7 _4 B
改为# P/ O3 B! W' e3 u
# ]' [4 H/ |! r3 _" i4 f4 K4 }4 ^
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2011-6-12 06:52:32
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
发表于 2011-6-12 10:15:22
