上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
jakan9
註冊時間: 2003-10-22 文章: 130
第 1 樓
|
發表於: 星期一 九月 20, 2004 11:21 am 文章主題: 如何在執行完FORM 後,再執行下一動作. |
|
|
請問我在程式表單AFORM的BOTTON中又去執行一個表單BFORM,可是BFORM未執行,程式會先執行下一個指令,是否有什麼方法,讓BFORM執行完,再做下一動作.
例如:aform在botton 中
do form bform
thisform.chg_data()
可是do form bform 未執行完,thisform.chg_data()就執行,可否用什麼方法,讓BFORM執行完,再做thisform.chg_data(). |
|
回頂端 |
|
|
朱育興
註冊時間: 2003-08-25 文章: 661 來自: 台中市大里區
第 2 樓
|
發表於: 星期一 九月 20, 2004 12:37 pm 文章主題: |
|
|
do form bform
thisform.chg_data()
改為
do form bform
READ EVENTS
thisform.chg_data()
在 bform 離開前要下
CLEAR EVENTS
看看這樣可不可以 _________________ 希望有更多人來參與
VFP wiki - 需要大家一起完成的VFP電子書與FAQ |
|
回頂端 |
|
|
garfield Site Admin
註冊時間: 2003-01-30 文章: 2158
第 3 樓
|
發表於: 星期一 九月 20, 2004 1:51 pm 文章主題: |
|
|
設定 BFORM.WINDOWYTPE=1 &&--內定值=0 無模式, 設成1 為"模式"可等到form關閉後才執行下一行指令 _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
|
jakan9
註冊時間: 2003-10-22 文章: 130
第 4 樓
|
發表於: 星期一 九月 20, 2004 4:27 pm 文章主題: |
|
|
感謝回答!終於解決了,THINKS! |
|
回頂端 |
|
|
藍薰
註冊時間: 2004-01-15 文章: 65
第 5 樓
|
發表於: 星期五 九月 23, 2011 10:50 am 文章主題: |
|
|
朱育興 寫到: | do form bform
thisform.chg_data()
改為
do form bform
READ EVENTS
thisform.chg_data()
在 bform 離開前要下
CLEAR EVENTS
看看這樣可不可以 |
各位大大:
最近我也有此困擾..
READ EVENTS 在一開始的 MAIN.PRG 已有此行指令
並在離開整個系統時也下 CLEAR EVENTS
但這樣若在 AFORM 執行 BFOM 前又再一次下 READ EVENTS 時
確實是有暫停執下一行指令
可是在 BFOM 離開前下 CLEAR EVENTS
卻會跳出整個系統
不知是否VFP 6.0有其它的指令可在表單裡暫停執行下一行的指令呢??
謝.. |
|
回頂端 |
|
|
richshih
註冊時間: 2007-10-11 文章: 153
第 6 樓
|
發表於: 星期一 九月 26, 2011 4:51 pm 文章主題: |
|
|
一個exe程式 只能下一次READ EVENTS(heLP檔有提到)
多下的依我的經驗可能會造成程式每次執行的碼順序不同 所以必須依一個READ EVENTS原則 來調整FORM.WINDOWTYPE |
|
回頂端 |
|
|
藍薰
註冊時間: 2004-01-15 文章: 65
第 7 樓
|
發表於: 星期二 九月 27, 2011 11:29 am 文章主題: |
|
|
richshih 寫到: | 一個exe程式 只能下一次READ EVENTS(heLP檔有提到)
多下的依我的經驗可能會造成程式每次執行的碼順序不同 所以必須依一個READ EVENTS原則 來調整FORM.WINDOWTYPE |
richshih大大:
我的確是一支exe一個read events
第一個read events 是在一開始登入的主程式,而後配合結束整個系統時下的 clear events
第二個read events 是在發票作業.exe 裡,在列印按鈕下
do 自訂預覽表單.scx
read events
IF _PRINT=.T.
記錄列印時間
ENDIF
判斷_PRINT 變數在自訂預覽表單.scx是否有確實按下列印,且離開自訂預覽表單.scx也下CLEAR EVENTS
但是COMPILER後只要去做到此段就會整個跳開
不知是哪裡有下錯嗎??
謝..指正 |
|
回頂端 |
|
|
richshih
註冊時間: 2007-10-11 文章: 153
第 8 樓
|
發表於: 星期二 九月 27, 2011 5:42 pm 文章主題: |
|
|
IF _PRINT=.T.
記錄列印時間
ENDIF
這部份碼你是寫于bform中嗎 |
|
回頂端 |
|
|
藍薰
註冊時間: 2004-01-15 文章: 65
第 9 樓
|
發表於: 星期三 九月 28, 2011 8:46 am 文章主題: |
|
|
richshih 寫到: | IF _PRINT=.T.
記錄列印時間
ENDIF
這部份碼你是寫于bform中嗎 |
不是下面藍色這段是同表單列印的按鈕下
do 自訂預覽表單.scx
read events
IF _PRINT=.T.
記錄列印時間
ENDIF
_PRINT 是經由do 自訂預覽表單.scx 若有按下確定列印帶回來的變數
因記錄列印時間目前只有發票作業需要
所以只有此表單有此段 |
|
回頂端 |
|
|
richshih
註冊時間: 2007-10-11 文章: 153
第 10 樓
|
發表於: 星期三 九月 28, 2011 3:45 pm 文章主題: |
|
|
DO FORM 表單列印
READ EVENTS
********************
其中DO 表單列印的設定
表單列印.SHOWWindow=2
表單列印.UNLOAD
CLEAR EVENTS
*********************
表單列印.MyCommandButton.click
自訂預覽表單.windowtype=1
do 自訂預覽表單.scx
&&由於自訂預覽表單.windowtype=1所以這裡會停住 等關閉自訂預覽表單後才會往下
IF _PRINT=.T.
記錄列印時間
ENDIF
************************ |
|
回頂端 |
|
|
藍薰
註冊時間: 2004-01-15 文章: 65
第 11 樓
|
發表於: 星期四 九月 29, 2011 10:02 am 文章主題: |
|
|
richshih 大大英明:
你說的步驟目前確實到 read events 有等待
但只要我在
表單列印.UNLOAD 下
CLEAR EVENTS
就會跳出整個系統
所以我最後只在跳出整個專案系統才下 CLEAR EVENTS
表單列印沒有下此命令
目前看起來似乎沒事
所以我的另一疑問是 read events 它若純粹只是一個等待命令的話
沒有一對一的CLEAR EVENTS 清除一直循環使用
似乎也不會有其它影響
只要最後整個專案離開時才下即可
不知我的想法對嗎??
謝.. |
|
回頂端 |
|
|
richshih
註冊時間: 2007-10-11 文章: 153
第 12 樓
|
發表於: 星期四 九月 29, 2011 6:01 pm 文章主題: |
|
|
一般來說一 個exe檔只須一個READ EVENTS ,CLEAR EVETNS一般會下於主程式的比較靠最後處, 如果你希望結束後
,有備份的動作 ,備份的碼可寫於CLEAR EVENTS後但由於無視覺介面, 你會以為程式已結束 |
|
回頂端 |
|
|
藍薰
註冊時間: 2004-01-15 文章: 65
第 13 樓
|
發表於: 星期三 十月 05, 2011 10:24 am 文章主題: |
|
|
謝謝 richshih 大大 我在仔細推敲一下 |
|
回頂端 |
|
|
|