|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题1 E8 B; q; x/ ]9 A) G
程序单详见下面帖( G+ ^$ s' F2 P: A0 {- ?/ X8 ]
http://postp.net/viewthread.php?tid=2432&extra=page%3D1
3 n- A) [2 M( u+ Y$ _& ~补充说明9 W; o( K+ v, B1 G
有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.
0 T5 S% Y2 t5 L! m
% \* G z7 y+ H$ {; `6 h- U找到下面的代码.2 l5 N! A9 C% a# u2 C* O7 K4 k6 _* o
" e l6 S% A, z8 I1 O/ }* {3 _+ V
sfileDir = "D:\nc\"
: q6 t7 V/ c5 ^0 [& F1 a0 J' -- Prompt for a report name6 k% N5 F; @0 Y9 @
strReportName = AskString("请输入报表文件名") . k6 E8 x f( W' t4 z# M, U+ g
If Len(Trim(strReportName)) = 0 Then Exit Sub
* s, ? I: }* Z' -- Check for EXT
7 H' Z% F! j& J7 ^4 @% e4 HIf Len(strReportName) <= 5 Then
5 E" b: u* |8 @# }% k* ` strReportName = strReportName & ".html"7 L3 u" M- b7 u; s5 h% i
Else# p" A/ a' _: E' W0 A; L
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
* F) O0 T# Z( \/ U& B4 ^End If
2 f; U& c n& l; N1 r9 i9 @4 u4 U* @% G8 ]! x1 U Q: {
改为8 O' m' ` M$ v6 i7 b8 S
+ |7 W+ M: K* `$ W d: {, z
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2011-6-12 06:52:32
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
发表于 2011-6-12 10:15:22
