VFP 愛用者社區

yctsai · 註冊時間: 2003-04-11 文章: 179 第 1 樓

請教一下,如果grid這個物件所對應的recordsource是在runtime時期,由create sql view而來的,因此第一次create sql view時grid內,所寫的程式碼均可正常執行,但第二次create sql view時,似乎grid所寫的程式碼就沒反應,好像成了預設值,不存在一樣,是哪裡的問題?? thanks

garfield · 發表於: 星期二四月 15, 2003 7:46 am 文章主題:

只要一變動 grid的recordsource , 它的columns的ControlSource會自動依欄位順序重填, 所以我都是在FORM設計的時候就定義好, 在變動 grid的recordsource 之前先將所有的Columns資料存起來, 等變動好了ReconrdSource再將columns的資料一個一個的回存, 就不會出問題了.

ICTANG · 發表於: 星期二四月 15, 2003 10:44 am 文章主題:

實作上應是:
1.FORM上產生1個PROPERTY:GRIDARR[]

WITH THISFORM
.LOCKSCREEN=.T.
DECLARE .GRIDARR[THIS.MYGRID.COLUMNCOUNT]
FOR II=1 TO .MYGRID.COLUMNCOUNT
.GRIDARR[II]=.MYGRID.COLUMNS[II].CONTROLSOURCE
NEXT II

.MYGRID.RECORDSOURCE=''

**CREATE NEW VIEW : VIEWCURSOR
.....

.MYGRID.RECORDSOURCE='VIEWCURSOR'

FOR II=1 TO .MYGRID.COLUMNCOUNT
.MYGRID.COLUMNS[II].CONTROLSOURCE=.GRIDARR[II]
NEXT II
.LOCKSCREEN=.F.
ENDWITH

yctsai · 註冊時間: 2003-04-11 文章: 179 第 4 樓

謝謝,努力中,或許grid應該再聰明一點

張得子 · 註冊時間: 2003-04-28 文章: 15 第 5 樓

既然用動態方式產生view,何不也用動態方式產Grid

garfield · Site Admin 註冊時間: 2003-01-30 文章: 2157 第 6 樓

Ruey · 發表於: 星期六五月 03, 2003 9:31 am 文章主題:

1.按照Garfield所給的,這不能用在SPT方式上
with thisform.pgf1.page2.grid1
.recordsource='select * from cust where cust_no<"'+padr(thisform.text1.value,+'" into cursor zzz'
.recordsourcetype=4
endwith

2.ICTANG 可以簡化
1.FORM上

WITH THISFORM
.LOCKSCREEN=.T.

.MYGRID.RECORDSOURCE=''

**CREATE NEW VIEW : VIEWCURSOR
.....

.MYGRID.RECORDSOURCE='VIEWCURSOR'

.LOCKSCREEN=.F.

ENDWITH
THISFORM.MYGRID.SETFOCUS()