|
|
馬上注冊，結交更多好友，享用更多功能，讓你輕松玩轉社區
您需要 登錄 才可以下載或查看，沒有賬號？立即注冊
×
MastercamV9.1加工單(vbs版)--修正不兼容9.0的問題4 n/ O* n$ J1 e+ g$ Q% n: P
程序單詳見下面帖" M$ i0 l" @6 T/ \; p) z' f" W
http://postp.net/viewthread.php?tid=2432&extra=page%3D19 v" J& B! E# t5 A2 h2 {8 M1 o! f
補充說明
6 m; ^4 Z j- Y t) m( m3 H有用戶反映用于9.1會是9.0出錯,下面是用于9.0的解決方法,環境不足,未能測試.5 b/ a1 a, n/ O; V) G7 _
2 Z1 I1 t3 i) y* T8 f- w
找到下面的代碼.
* `% P% P1 a3 G1 ?! z! v+ ~8 \3 ?; d5 x! `# p
sfileDir = "D:\nc\" 4 \) t) c" A( a9 S8 V
' -- Prompt for a report name
% @6 X' c" P/ L* vstrReportName = AskString("請輸入報表文件名") ' F7 g, }1 e s: ?* j
If Len(Trim(strReportName)) = 0 Then Exit Sub
, Y1 S( t6 ^2 {8 `9 J' -- Check for EXT
( x- s% n. j% L1 K$ C! z4 {If Len(strReportName) <= 5 Then
+ `) m \& F! j" t: j' w7 d strReportName = strReportName & ".html"+ c: E* O: z; [5 ^/ c# B/ m
Else
* J/ ?! g7 d u# t! R% v1 U If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
; L0 G6 U7 r9 s% L& bEnd If
) N+ y# {; O# U5 Q1 K( s* v3 f3 }
0 D: ?: N; ]. k+ K' l* c! s! a+ ]改為+ o I, n) j$ H4 M
& n5 B9 R+ o. @. c% ]( Z2 |2 H3 v |
|
/2 
|Archiver|手機版|小黑屋|若楓后處理論壇
( 蘇ICP備11015087號-1|
蘇公網安備32059002001368號 )
IP卡
狗仔卡
發表于 2011-6-12 06:52:32
QQ好友和群
QQ空間
提升卡
置頂卡
沉默卡
喧囂卡
變色卡
千斤頂
顯身卡
發表于 2011-6-12 10:15:22
