|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题1 O% Q% r1 p2 B9 \- _; b1 h& n, a
程序单详见下面帖
; A1 G( }- ^/ T. q0 m' L. Ehttp://postp.net/viewthread.php?tid=2432&extra=page%3D1
& b y9 ^! P: R$ R+ ^补充说明
7 o5 Q1 Y' ~% @$ V! F6 K有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.
: q! ]" Z! x* ^1 L4 J
( o* g4 P; D( F( b1 A9 Q找到下面的代码.
& t c8 Q$ T6 Y/ ?
! Y8 |" V& s1 W0 d' a& V3 T1 ? sfileDir = "D:\nc\"
% p" U3 w) L" K$ j' -- Prompt for a report name
6 h' a6 N( p/ K/ qstrReportName = AskString("请输入报表文件名") 6 Z- }6 K; b$ \! L; N
If Len(Trim(strReportName)) = 0 Then Exit Sub
/ `# H2 a; @8 O6 e' -- Check for EXT2 n0 [8 ?) B0 x6 ?6 D2 Q
If Len(strReportName) <= 5 Then
+ H6 N" o5 ]7 x* u& l* n strReportName = strReportName & ".html"/ o0 A4 F- w5 @9 k. V
Else" Q1 t2 \5 \1 y: w
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
8 ?3 K& ]$ f9 G4 N: k5 tEnd If
9 ]3 a, [% R; J4 M2 U
; A& `; Y8 L8 o% u改为
) T6 P5 N) e# y% ?' f6 i, L4 j2 h7 u" k3 c2 L
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2011-6-12 06:52:32
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
发表于 2011-6-12 10:15:22
