|
|
馬上注冊，結交更多好友，享用更多功能，讓你輕松玩轉社區
您需要 登錄 才可以下載或查看，沒有賬號？立即注冊
×
MastercamV9.1加工單(vbs版)--修正不兼容9.0的問題8 N6 K$ V& v# ], l1 s4 i
程序單詳見下面帖- I8 ` v* t/ H. T
http://postp.net/viewthread.php?tid=2432&extra=page%3D1' C4 u3 t3 }, S! s, D4 k
補充說明
* H4 U) ]* K. R( |* o/ m- ^- Y, J有用戶反映用于9.1會是9.0出錯,下面是用于9.0的解決方法,環境不足,未能測試.* c6 q" s( }% f, |" g) h' T, B i7 b
/ Y( l) v) e4 h* Z+ i7 h/ M找到下面的代碼.8 h: _5 x1 v! g8 m6 D, z
9 i5 z. Z/ L( V: ?7 n
sfileDir = "D:\nc\"
$ S/ n T2 n; M# E' -- Prompt for a report name H' B) ?8 x. E7 r
strReportName = AskString("請輸入報表文件名") 8 L7 o4 D7 T+ v) i+ Q6 _; A
If Len(Trim(strReportName)) = 0 Then Exit Sub+ Z* }0 t1 A* Q- g
' -- Check for EXT
7 i; o* t5 J& k' a- AIf Len(strReportName) <= 5 Then; E; r! `5 J. F- b9 h* O2 L2 l, t
strReportName = strReportName & ".html"% U) Q# S9 D+ ] }2 C. |! S
Else8 X6 l3 V" F8 p! ?% W7 }- B g& |9 i
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
$ ~7 A2 \% g0 O! d& U9 LEnd If& [5 L, l4 K! w0 W0 J9 o
) q8 ^! Q8 \1 \1 |- x7 v
改為) W% n5 I- H( C! `3 D
1 d- A/ K! O# u* b, a2 C2 o7 {) L |
|
/2 
|Archiver|手機版|小黑屋|若楓后處理論壇
( 蘇ICP備11015087號-1|
蘇公網安備32059002001368號 )
IP卡
狗仔卡
發表于 2011-6-12 06:52:32
QQ好友和群
QQ空間
提升卡
置頂卡
沉默卡
喧囂卡
變色卡
千斤頂
顯身卡
發表于 2011-6-12 10:15:22
