|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题
/ p" `! W$ a/ G, l/ s程序单详见下面帖, H8 }- B! w1 g3 h# `' x
http://postp.net/viewthread.php?tid=2432&extra=page%3D1
\2 k8 j% x0 p- b. L! [补充说明, j6 i& y, q" {( a) l
有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.
9 R% V7 \- x' ]- p) K) M% w% d3 }! o6 D
找到下面的代码.2 F# Q& v/ x1 U9 ^6 ^/ ?
- R/ m8 q# Y4 \/ i8 w; O
sfileDir = "D:\nc\"
9 W$ |/ J. l/ d' i$ v2 t9 U' -- Prompt for a report name; ?3 [2 Q8 B& V( V+ L! }
strReportName = AskString("请输入报表文件名") 3 y, h; b0 V' S; {
If Len(Trim(strReportName)) = 0 Then Exit Sub
' |$ X8 Y% ]1 @; \' -- Check for EXT
* B1 V n* R! w2 o# x/ fIf Len(strReportName) <= 5 Then3 V1 C; r+ N( P2 T- `; z+ c
strReportName = strReportName & ".html"
. r5 x' Y) j m {8 lElse
& d3 @0 j( Y- p. `& l/ ^1 R+ `# T If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"8 G l, b$ w# h# ~0 T: @9 c
End If
9 i- x* M7 P& _5 w+ o) E, c: H- N2 u4 C' z. S9 ]5 N% P
改为1 K+ w/ i* H+ W! P+ S9 V9 z5 m
4 F. Y' ]1 V6 q E
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2011-6-12 06:52:32
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
发表于 2011-6-12 10:15:22
