|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题
4 ~9 q' {1 @. Q5 E$ A程序单详见下面帖
6 Y: s# q4 o0 ~: l( c R0 hhttp://postp.net/viewthread.php?tid=2432&extra=page%3D11 @1 x# B; @+ \0 q- z! P
补充说明: A/ |9 O/ }# h! p
有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.
8 }+ c* A1 o6 r4 K/ ]5 q) t0 W4 C; e U$ N5 d
找到下面的代码.4 F" Z% J W3 c& ^
! k$ F" I" J8 {7 ~ sfileDir = "D:\nc\" 0 @' n+ O- q. ~" E D
' -- Prompt for a report name' H- T: b. V( m$ I+ t& x
strReportName = AskString("请输入报表文件名") 7 C- B% Q: @' M
If Len(Trim(strReportName)) = 0 Then Exit Sub
; n- r& h" L2 z* f9 h5 \4 V' -- Check for EXT
4 S8 n: L# F) h; [* J, o. tIf Len(strReportName) <= 5 Then# n5 K) R' x, e7 o6 e' {
strReportName = strReportName & ".html"( h$ v; N) @1 ^3 f0 t# b
Else3 U5 y3 B5 X/ ?
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"0 n: s3 n9 c8 w" [! \
End If2 H, i/ l: X$ b0 m( h
4 ]& O* h( Y0 A. t+ y0 `+ K# R
改为
0 ?- H. [" z) y+ W9 v, {9 }4 y9 H" W6 D$ {0 P
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2011-6-12 06:52:32
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
发表于 2011-6-12 10:15:22
