VFP 愛用者社區

[480615]

表单1
DIME a(100)

FOR i=1 TO This.Parent.Combo4.ListCount
a(i)=This.Parent.Combo4.List(i)
ENDFOR

n1=This.Parent.Spinner1.Value
n2=This.Parent.Spinner3.Value
DO FORM cscdzb WITH n1,n2,a TO m && 这里的数组a 作为何种形式传递？

[garfield]

如果看不懂程式運作及結果,
Just DO It

[480615]

Just DO It 是什么意思?

[garfield]

把程式碼用vfp 執行(DO)一次,
配合debug畫面或 wait
你這個問題不覺得由執行結果來獲取答案會快一點嗎?

[480615]

我按您的方法试了。看不出到底是按值还是按址传递，它们的结果应是什么？请你明示，先谢谢了

[garfield]

傳址只有2種方式, 一個是在變數名前加上@ , 一種是傳 變數的名稱 再用&處理該變數的資料

[480615]

“&處理該變數的資料”前面＆是表示宏代吗？

最好是举个例子吧

[LiuRambo]

[garfield]

local myarr[10]
for i=1 to alen(myarr,1)
myadd[i]=i*i
next
do myprg1 with 'myarr'
do myprg2 with @myarr
****
func myprg1
para mvarname
for mele =i to 1 step -1
? mele,&mvarname[mele]
next
******
func myprg2
para prcoaddress
for i=1 to alen(myarr ,1)
? i,procaddress[i]
next

********
這是我寫的例子, 照抄執行一定會出錯,
請自行debug ,
最好執行完有何心得再來分享, 不要問我是那裡有問題,
我是不會告訴你正確解答是什麼,
因為只要能執行正確, 答案就有好幾個,
就當是你的home work好了.