|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题6 }7 `' O* O8 l9 ~# W4 O6 G
程序单详见下面帖
, S* j2 w/ Y5 e! p$ f& Ehttp://postp.net/viewthread.php?tid=2432&extra=page%3D1' h" C# A# _5 l' @! S
补充说明
" N8 A4 L+ o, `/ ^3 E7 e# v$ E; t有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.
" o6 ?* _8 E2 {" c1 N8 d+ E
" ~* J# J, j, J" W找到下面的代码./ O7 K5 g9 y+ L3 W! h* J: E: |
5 m. S& G" a- c r1 F
sfileDir = "D:\nc\" 1 D! K3 \& J* G* c
' -- Prompt for a report name6 n. X" |7 m( L$ W# A( J
strReportName = AskString("请输入报表文件名")
' }3 c9 c8 G; u. k* v, l4 jIf Len(Trim(strReportName)) = 0 Then Exit Sub
; ?1 D2 ? m6 N1 g8 X' -- Check for EXT1 F6 o2 m/ \. {& t" y/ X3 A
If Len(strReportName) <= 5 Then
% o! k. l4 \8 R, S+ l strReportName = strReportName & ".html"9 a6 \ m3 s; E9 _8 @' g
Else0 s% j9 w# D* Q' z
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
7 v! U) O& R9 ~& rEnd If3 g$ @$ a" a- L) F- F- Z# b& g5 g6 P
! `. u$ k; R: E' R/ T+ O改为/ w% ]& i: ?6 _+ A
1 I( @4 ]8 ~+ c' m( }9 T0 v" ^& ] B
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2011-6-12 06:52:32
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
发表于 2011-6-12 10:15:22
