|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
marvin
註冊時間: 2004-06-01 文章: 321
第 1 樓
|
發表於: 星期三 十一月 11, 2015 1:08 am 文章主題: main.prg 中有 read event 時不能中止 do form |
|
|
發覺 main.prg 有 read event 時, 在 form 的 init 中用 return .f. 會令 form 中止建立, 但程式也卡住了, 有方法解決嗎 ?
main.prg:
do form formStk
read event
formStk 中的 init event:
if ......
return .f.
endif |
|
回頂端 |
|
|
perry
註冊時間: 2014-07-20 文章: 203
第 2 樓
|
發表於: 星期三 十一月 11, 2015 4:50 am 文章主題: Re: main.prg 中有 read event 時不能中止 do form |
|
|
marvin 寫到: | 發覺 main.prg 有 read event 時, 在 form 的 init 中用 return .f. 會令 form 中止建立, 但程式也卡住了, 有方法解決嗎 ?
main.prg:
do form formStk
read event
formStk 中的 init event:
if ......
return .f.
endif |
直接結束程式如何?
if ......
clos all
quit
*return .f.
endif |
|
回頂端 |
|
|
perry
註冊時間: 2014-07-20 文章: 203
第 3 樓
|
發表於: 星期三 十一月 11, 2015 7:30 am 文章主題: |
|
|
有個變通方式不妨試試->增加1組 timer
讓表單完整成立,籍由 timer 的判斷來正常關閉表單!!
代碼: |
proc init
this.timer1.enabled=.t.
tiis.timer1.interval=200
endproc
proc timer1.timer
if ......
clea even
thisform.release
else
this.enabled=.f.
endi
endproc
|
|
|
回頂端 |
|
|
215001
註冊時間: 2003-06-11 文章: 391
第 4 樓
|
發表於: 星期三 十一月 11, 2015 9:09 am 文章主題: |
|
|
不要寫在 init
改在 Gotfocus 判斷
if ...
clear events
thisform.release
endif |
|
回頂端 |
|
|
syntech
註冊時間: 2003-05-16 文章: 4225 來自: Taipei,Taiwan
第 5 樓
|
發表於: 星期三 十一月 11, 2015 9:49 am 文章主題: |
|
|
有什麼理由不可以先在 PRG中檢查,然後在 DO FORM ? _________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
|
Batman
註冊時間: 2003-11-15 文章: 348
第 6 樓
|
發表於: 星期三 十一月 11, 2015 11:33 am 文章主題: |
|
|
想問一下marvin, 為何在init return .f., 在init return .t.或.f., Form 還是會顯示出來 |
|
回頂端 |
|
|
marvin
註冊時間: 2004-06-01 文章: 321
第 7 樓
|
發表於: 星期三 十一月 11, 2015 3:24 pm 文章主題: |
|
|
謝謝以上建議, 等回試試
我這架構是用在遠端 sql, 這個我不熟, 我是想用:
main.prg :
連接遠方 sql, 如接上, do form Formstk;
Formstk 中 init event 準備各個 cursor, 如果連接不上, 停止
Syntech 和 Batman 也說得對, 把準備 cursor 放到 main.prg 也是辦法 |
|
回頂端 |
|
|
syntech
註冊時間: 2003-05-16 文章: 4225 來自: Taipei,Taiwan
第 8 樓
|
發表於: 星期三 十一月 11, 2015 3:32 pm 文章主題: |
|
|
公司自古以來的習慣就是先把該開的開好,該設的設好,
最後再DO FORM,
作完了,
該CLOSE 的CLOSE,該 SQLDISCONNECT 就SQL DISCONNECT,該RELEASE 的RELEASE. _________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|