|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题9 R. p. e2 s8 F
程序单详见下面帖
( J: L1 B5 m& @2 ~; d+ Ahttp://postp.net/viewthread.php?tid=2432&extra=page%3D1& f' a, S1 ], U# l: H. o$ x/ q! u( o
补充说明
. S( h4 p3 ^( {6 z* T! V, n4 N有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.# q3 Z7 w$ D6 _6 R$ }8 @5 C
0 a' E% Z% G' y9 r+ Q
找到下面的代码.2 m) m9 @+ L! S3 }1 d: ^
/ S$ V7 E" o# K# x. N
sfileDir = "D:\nc\" ; a1 T/ H8 p/ s) Y6 P/ T2 G0 b+ E: j
' -- Prompt for a report name
3 D% f3 c9 G$ x9 M9 Y7 zstrReportName = AskString("请输入报表文件名")
3 @ F! z1 @' w6 i0 kIf Len(Trim(strReportName)) = 0 Then Exit Sub
1 x% E2 |) Z: k# N# j0 I' K' -- Check for EXT9 o3 k7 K& n- b! `9 X
If Len(strReportName) <= 5 Then; f+ N. v: T- P: q
strReportName = strReportName & ".html"
! w7 x' e g& Z: P$ F" }1 BElse9 b* s: h6 j( @8 `# n
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"6 u D- e3 u3 g9 v5 a* b% P' |1 E
End If: Q% y3 c1 ]. J" g% X% l+ s# j
$ [; t, b; s6 R4 v改为) q/ L) ]/ R+ d: }3 H3 M
0 ]1 p( t- F; r5 q! V" e4 y/ f- ]
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2011-6-12 06:52:32
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
发表于 2011-6-12 10:15:22
