|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题
0 t/ b* Y6 u9 o程序单详见下面帖3 j! q( t. m7 u# s& F9 b
http://postp.net/viewthread.php?tid=2432&extra=page%3D1
; s: k0 t5 X8 ^5 v. m补充说明4 ~( X2 v0 {, Z& j( U
有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.
4 _! `% e) _4 v3 R* ]- t& h4 g# D& v# h8 D! o; H
找到下面的代码.
+ O1 w9 \% S$ d
0 o- u& @9 }. @9 S1 ?2 v0 n sfileDir = "D:\nc\" ) n2 m& v3 b3 G, X# q* f" ]% q4 k' a8 j
' -- Prompt for a report name
9 O0 I' L# r2 d% h0 \1 A% @" Q& NstrReportName = AskString("请输入报表文件名") 9 k' ^) c. q1 P' M! D- d2 I- w
If Len(Trim(strReportName)) = 0 Then Exit Sub
& t' S! J0 r& x' -- Check for EXT' e+ s1 J) B% w: {& X$ y* O
If Len(strReportName) <= 5 Then
' G. m3 f/ C3 y2 U! Z strReportName = strReportName & ".html"& I, ^9 w, _/ Y J. `2 a* N
Else
3 ~8 E- T& G% _$ s W1 u1 c& O If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
& i4 N! o# y( U% zEnd If
' o6 {$ Y$ e5 b' J$ a- q
/ Y/ v% N/ e3 G& Z. I/ Y改为2 ?6 D# {( j4 ]9 ?8 y, z- M
$ z. ?, }- S) ?4 M
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2011-6-12 06:52:32
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
发表于 2011-6-12 10:15:22
