|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题' H) Z- G4 d7 `1 i* |
程序单详见下面帖
3 |/ } [! B' Ahttp://postp.net/viewthread.php?tid=2432&extra=page%3D14 D/ [- K3 N4 t& @
补充说明" l% A; ~" q) u% G2 \+ @
有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.
9 g$ ]0 o: l/ X l) s+ j1 T
6 C9 ^7 C; H1 u8 Q- A" P找到下面的代码.( n; S- o2 z) l6 `! m4 N: v
/ W- r7 @' x" `7 Z7 N/ y
sfileDir = "D:\nc\" ! D% M7 {! }) w# ^7 k: E
' -- Prompt for a report name8 Y9 M, u, V' b1 h y7 W/ Y7 [
strReportName = AskString("请输入报表文件名")
* V* d8 @& s) |) l$ r8 V& j2 GIf Len(Trim(strReportName)) = 0 Then Exit Sub* }# A+ F6 [, ?: C9 n! Z
' -- Check for EXT" S( a" |) v/ @9 M
If Len(strReportName) <= 5 Then
, `' u% L! [* ]* G strReportName = strReportName & ".html"
6 {+ a; w0 r& X5 O1 FElse
( E& X0 i/ G, ]2 [ If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
( ^2 J. m% e" B9 y: o0 gEnd If9 w' t6 `6 o& p
/ u( Q9 s+ `2 Z; B
改为" \) [; V) }3 a9 w$ t6 R
) t R( F9 @# D! v1 Y, \* }9 L Z9 g+ @
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2011-6-12 06:52:32
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
发表于 2011-6-12 10:15:22
