VFP 愛用者社區

andy8m23

我有一個form
裡面有個cus欄位 ,cus欄位旁邊有個選擇botton 叫command1
在command1.click中
thisform.text2.value=stf('findcus')
stf為prg
para tmform
okkey=''
do tmform
return okkey

而findcus中,為一個grid,text1,和一個確定的botton
每點選grid的格子會將值帶入text1
在botton
okkey=thisform.text1.value
thisform.release()
return okkey

執行時,第一次點選選擇botton 都可以順利帶回值
但第二次點選時就會出現
載入檔案錯誤-記錄編號4.fORM1 或其成員中的一個載入表單或資料環境
:THISFORM 只能在方法程序中使用

[取消(c)] [忽略(I)] [說明(I)]

不過很奇怪,好像只是重復按選擇BOTTON 資料都可以一直帶回
但按了新增後才會出現這樣
我的新增裡面是
select order
repl order.ordno with thisform.text1.value
repl order.cusno with thisform.text2.value
repl order.ordname with thisform.text3.value
=tableupdate(.t.)
thisform.refresh()
目前是還好,因為按了忽略後,再點一次,又可以作選擇了
不過就是接下來就要點一次忽略一次再點一次才能選擇
在這裡要先感謝garfield,他跟我說在thisform.text1.value=stf('form')中
form要設為模式,值才代的回來

garfield · 發表於: 星期六三月 19, 2005 3:14 pm 文章主題:

andy8m23 · 發表於: 星期日三月 20, 2005 2:43 am 文章主題:

果然是前輩,我真的是用過set filter ,所以我要離開查詢表單時,應該set filter to 先回復原狀再傳值回去
用以上這個招,很不錯,可以不用沒個選擇按紐都要打thisform.XXXX.value=傳回值
可不可以問一下,就是以上例子而言,在查詢前的按紐中,要do form with myobject to 傳回值
myobject 是不是用 myobject=thisform.text1.class

garfield · 發表於: 星期日三月 20, 2005 10:50 am 文章主題:

這句話我不懂 "myobject 是不是用 myobject=thisform.text1.class",
thisform.text1.class 是什麼?

andy8m23 · 發表於: 星期日三月 20, 2005 11:52 am 文章主題:

對不起,我搞錯了,真是不好意思
在 form.init裡的程式碼如下
para myobject<-----我想問的是這個裡面是不是放 (物件) 欲傳回的值填入你要的地方的(物件)
thisform.addproperty('objectname')
thisform.objectname=myobject
在這個form的某段程式, 例如是click某個按鈕要將欲傳回的值填入你要的地方, 則這個按鈕.click( )程式碼如下:
thisform.objectname.value = 你要傳回的值

黃澤民 · 發表於: 星期日三月 20, 2005 11:53 am 文章主題:

請教garfield 兄
依您的說明，如果我在一個表單的uload事件中，想要傳回的是一個物件(不是某個物件的屬性值)
應該如何做呢？如下例：

Form1.unload
Return this.Container1 <------ 一個物件

可是總是會有錯誤訊息而無法達成...

andy8m23 · 發表於: 星期日三月 20, 2005 12:15 pm 文章主題:

感謝澤民兄,我想表達的也是這個意思,剛去找Garfield兄的文章,有提到這個

我的做法是在FORM中多一個屬性 .activeobject ,在每個物件的 .GetFocus內皆加入一行指令, Thisform.activeobject = this

搜尋物件名稱就可以找到了,應該有用

garfield · 發表於: 星期日三月 20, 2005 1:47 pm 文章主題:

to 黃澤民,
thisform裡面的東西在form關閉時就已經不存在了, 甚至在unload時, 物件都幾乎不存在了, 怎麼可能可以還將物件傳回去, 你可以試著不要release, 用 .visible=.f. 看看是否可行.

黃澤民 · 發表於: 星期日三月 20, 2005 4:59 pm 文章主題:

To Garfield兄：
我想也是，剛才試了一下，果真是，但是
就像您說的，經過了release，物件都不存在了，那return (thisform.myobj.value) 還有意義嗎？

黃澤民 · 發表於: 星期日三月 20, 2005 5:09 pm 文章主題:

接上題，因為Do form myform with p1,p1 to v1
其中myform 的視窗是model模式，如果不加release
那麼程式是無法往下繼續的....
所以說...

garfield · 發表於: 星期日三月 20, 2005 6:09 pm 文章主題:

所以說你要用我講的第2種方法才行

黃澤民 · 發表於: 星期日三月 20, 2005 8:30 pm 文章主題:

史兄：
依您的方法，我在表單設計階段及自訂一個屬性MyObj
然後在Form.init事件中定義
Form.init
para p1,p2
this.Myobj = This.container1
然後在Form.unload事件中定義

Form.unload
return this.myobj

結果依然還是不行

andy8m23 · 發表於: 星期日三月 20, 2005 11:47 pm 文章主題:

http://home.kimo.com.tw/andy8m23/klun.rar
這個是我測試的表單傳值,不管在formB 輸入什麼,回來的都是T

bigear · 發表於: 星期一三月 21, 2005 2:09 am 文章主題:

garfield · 發表於: 星期一三月 21, 2005 8:19 pm 文章主題:

bigear說的方法就是第3種方法, 先去研究他的方法,
我舉一個例子說明我的第2種方式, 這種方式你可以將它想成像我們在用副程式接收參數時有兩種, 1是傳值,2是傳址 , 這個方式就是傳址,
可能你們比較少用, 所以對它都不熟.
例:
在A form中有一個物件 text1 , 在text1.dblClick() 中寫一行程式
do form B with this
則它在dobule click 時會去執行 FORM B , 且傳這個text1的物件(的位置)給它.

在 B form中的.init 中有3行程式
para myobject
thisform.addproperty('objectname')
thisform.objectname=myobject
假設你有個grid在秀資料讓人選擇, 且有個按鈕的物件叫做 .send1 , 則你在 .send1.click( ) 中只要寫兩行程式:
thisform.objectname.value = 你要傳回的值 &&--這個thisform.objectname 本質上只是一個指向 A form 中的那個 .text1的物件
thisform.release
不須在unload中傳回值
************
以上請自己動手試一試就知道它的奧妙之處. 祝你成功.!!