VFP 愛用者社區

[黃澤民]

簡單的一個表單(form1),只有一個物件combobox1(combo1)
form1.init
this.SetAll('fontname','fixedsys',)
DIMENSION _ary[3,2]
_ary[1,1]='a_01'
_ary[1,2]='這是第一筆'
_ary[2,1]='b_02'
_ary[2,2]='這是第二筆'
_ary[3,1]='c_03'
_ary[1,2]='這是第三筆'
this.combo1.RowSourceType= 5
this.combo1.RowSource='_ary'
this.combo1.ColumnCount=2
this.combo1.ColumnWidths='100'
this.combo1.Requery

執行的結果如附件。combo1往下拉時，選項都是空白。
但是如果把程式改成
form1.init
this.SetAll('fontname','fixedsys',)
public _ary[3,2]
_ary[1,1]='a_01'
_ary[1,2]='這是第一筆'
_ary[2,1]='b_02'
_ary[2,2]='這是第二筆'
_ary[3,1]='c_03'
_ary[3,2]='這是第三筆'
this.combo1.RowSourceType= 5
this.combo1.RowSource='_ary'
this.combo1.ColumnCount=2
this.combo1.ColumnWidths='100'
this.combo1.Requery

這樣就可以正確執行了。
請問各位先進，這是為什麼？

[garfield]

在form.init 所定義的陣列, 執行完init , 它就被丟掉, 無法用在這個form其它物件中.

你可以在form.init 將
DIMENSION _ary[3,2]
_ary[1,1]='a_01'
....
this.combo1.RowSource='_ary'
改成
thisform.addproperty('_ary[3,2]')
thisform._ary[1,1]='a_01'
....
this.combo1.RowSource='thisform._ary'

[黃澤民]

[黃澤民]

報告：跟我想的不一樣。可以指定別的物件。

[garfield]

那是因為你不了解 form 裡面各個object 是怎麼運作的,
所以才會跟你想的不一樣.
你可以試著在form.load裡 寫一行 susp
你再用debug 去一步一步查看執行順序及變數變化的狀況.

[黃澤民]

[CPS0204]

在form 的init
public my_array[3,2]

在form unload
release my_array