|
|
馬上注冊，結交更多好友，享用更多功能，讓你輕松玩轉社區
您需要 登錄 才可以下載或查看，沒有賬號？立即注冊
×
MastercamV9.1加工單(vbs版)--修正不兼容9.0的問題
3 J3 x3 J6 S" D1 h* m8 c程序單詳見下面帖
. k5 n- S! s+ k' [4 Dhttp://postp.net/viewthread.php?tid=2432&extra=page%3D1+ A) j1 G* b% ?' D
補充說明
; u w7 ?8 `, B有用戶反映用于9.1會是9.0出錯,下面是用于9.0的解決方法,環境不足,未能測試.- [$ ]& D+ R1 B7 ~6 h7 d
/ _2 J) `9 m6 N& F" |找到下面的代碼.
4 A" t0 k& x# R' Z5 k( H
6 T- K5 ?& {& c, N8 A sfileDir = "D:\nc\" 7 |1 t# \9 X8 S% r- c0 G3 K& W( g& H
' -- Prompt for a report name+ z9 t( R5 n( ?/ h2 c" r. G
strReportName = AskString("請輸入報表文件名")
9 n* m$ m# B: T/ v& s; E% T% cIf Len(Trim(strReportName)) = 0 Then Exit Sub2 N2 I/ E* o& x% d$ c* J0 E1 Y
' -- Check for EXT
$ D* Y8 g0 X" E; @# OIf Len(strReportName) <= 5 Then7 |% D. m0 s" ]* C) f+ ?4 U
strReportName = strReportName & ".html"% X# t3 g5 F% a4 w
Else9 ]2 A( X" b! j6 [
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html": D) x3 |5 [& r1 b: g }' G
End If# s, J3 G% \/ ~6 O3 i+ Q
7 _. V9 @) i) B/ d" C/ W& w. G
改為8 ~! b, ~5 W! |5 e1 p
4 A; @2 M0 w4 ]: r/ m* V |
|
/2 
|Archiver|手機版|小黑屋|若楓后處理論壇
( 蘇ICP備11015087號-1|
蘇公網安備32059002001368號 )
IP卡
狗仔卡
發表于 2011-6-12 06:52:32
QQ好友和群
QQ空間
提升卡
置頂卡
沉默卡
喧囂卡
變色卡
千斤頂
顯身卡
發表于 2011-6-12 10:15:22
