上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
LiChingLin
註冊時間: 2006-04-19 文章: 59
第 1 樓
|
發表於: 星期四 六月 07, 2007 3:38 pm 文章主題: UNLOAD 的奇怪問題 |
|
|
1.在 FORM INIT 新增屬性 RET_VALUE
2.給值 THISFORM.RET_VALUE = .F.
3.在 按鈕 click 時將 THISFORM.RET_VALUE = .T.
4.沒有其他地方改變 THISFORM.RET_VALUE 值
5.可是在 UNLOAD 時 THISFORM.RET_VALUE 卻是 .F.
6.WHY ... |
|
回頂端 |
|
|
marvin
註冊時間: 2004-06-01 文章: 321
第 2 樓
|
發表於: 星期四 六月 07, 2007 3:44 pm 文章主題: |
|
|
都要 unload 了, 當然什麼東西都不見了
試參考 Help 中 Unload Event 內容 |
|
回頂端 |
|
|
LiChingLin
註冊時間: 2006-04-19 文章: 59
第 3 樓
|
發表於: 星期四 六月 07, 2007 4:09 pm 文章主題: |
|
|
那麼對於FORM的傳回值應如何放置位置
例如
DO FORM ABC WITH 1, .T. TO RET_V
其中
ABC => FORM NAME
1,.T. => 分別是 傳進值
RET_V => 傳回值
FORM.INIT
LPARAMETERS A,B
A 接收 1
B 接收 .T.
難道我的方式或者是觀念不正確 ...
求解... |
|
回頂端 |
|
|
abcyei
註冊時間: 2004-01-01 文章: 48
第 4 樓
|
發表於: 星期四 六月 07, 2007 4:39 pm 文章主題: Re: UNLOAD 的奇怪問題 |
|
|
LiChingLin 寫到: | 1.在 FORM INIT 新增屬性 RET_VALUE
2.給值 THISFORM.RET_VALUE = .F.
3.在 按鈕 click 時將 THISFORM.RET_VALUE = .T.
4.沒有其他地方改變 THISFORM.RET_VALUE 值
5.可是在 UNLOAD 時 THISFORM.RET_VALUE 卻是 .F.
6.WHY ... |
我照你的作法
在 FORM INIT
thisform.addproperty('RET_VALUE')
thisform.RET_VALUE = .f.
然後 在按鈕command.click
thisform.RET_VALUE = .t.
在FORM UNLOAD
wait wind iif(thisform.RET_VALUE,".t.",".f.")
然後執行form測試
結果只要你有按command都會顯示.t.
所以並不會有你所說的問題
還是我會錯意 |
|
回頂端 |
|
|
LiChingLin
註冊時間: 2006-04-19 文章: 59
第 5 樓
|
發表於: 星期四 六月 07, 2007 6:06 pm 文章主題: |
|
|
我每個 Form 測試都對,就只有這個有 Bug
完整流程如下
1.在 FORM INIT 新增屬性 RET_VALUE
2.給值 THISFORM.RET_VALUE = .F.
3.在 FORM.ACTIVE 時將 THISFORM.RET_VALUE = DBF_OPEN()
4.此時 THISFORM.RET_VALUE 已經是 .T. 可確定 DBF_OPEN()傳回 .T.
5.然後 THISFORM.RELEASE
6.沒有其他地方改變 THISFORM.RET_VALUE 值
7.可是在 UNLOAD 時 THISFORM.RET_VALUE 卻是 .F. |
|
回頂端 |
|
|
LiChingLin
註冊時間: 2006-04-19 文章: 59
第 6 樓
|
發表於: 星期四 六月 07, 2007 6:08 pm 文章主題: |
|
|
傳回值 BUG 在 ACTIVE 改變值有關嗎? |
|
回頂端 |
|
|
abcyei
註冊時間: 2004-01-01 文章: 48
第 7 樓
|
發表於: 星期五 六月 08, 2007 10:56 am 文章主題: |
|
|
如果如你所言只有在FORM.ACTIVE時才會改變THISFORM.RET_VALUE的值
那可以試試FORM.ACTIVE到底被執行了幾次,是否在UNLOAD前有再執行過 |
|
回頂端 |
|
|
andywilliams
註冊時間: 2004-10-23 文章: 111
第 8 樓
|
發表於: 星期六 六月 09, 2007 4:07 am 文章主題: |
|
|
當程式執行到 UNLOAD 時,物件THISFORM.RET_VALUE 已不存在
用變數吧!
PUBLIC MRET_VALUE
...
Return( MRET_VALUE ) |
|
回頂端 |
|
|
LiChingLin
註冊時間: 2006-04-19 文章: 59
第 9 樓
|
發表於: 星期日 六月 10, 2007 3:08 am 文章主題: |
|
|
問題已經解決,謝謝大家 |
|
回頂端 |
|
|
|