VFP 愛用者社區

[moon64]

大家好...新年快樂...元旦快樂....

有5個grid,同一資料檔,我想要的是控制

grid1 = 1 ~ 41筆
grid2 = 42 ~ 82筆
grid3 = 83 ~ 123筆
grid4 = 124 ~ 164筆
grid5 = 165 ~ 205筆

用過 agrid gocell(rol,col) 方式也行不通,因造成6個grid 搞得亂...其他行不通,不知怎辦才好..

假如算測試成功.,..但是 ..假如按下鍵方向到 11筆

grid1 = 11 ~ 51筆
grid2 = 52 ~ 92筆
grid3 = 93 ~ 133筆
grid4 = 134 ~ 174筆
grid5 = 175 ~ 215筆

怎解決...我查過所有的知識...測試沒成功過的一次

[tigerlee39y]

5個grid的來源用select製造出來
在grid1的AfterRowColChange設定向下鍵按了後重新select

[andywilliams]

*proc grid1 AfterRowColChange
mrecno = recno()
for I = 2 to 5
str_I = str(I,1,0)
skip 41
ThisForm.Grid&str_I..refresh
next
go Mrecno

[tigerlee39y]

andy兇的更簡潔,佩服

[moon64]

Mr. tigerlee39y 　我有想過這個　謝謝請敎　可以考慮
Mr. andywilliams　謝謝你請教　我試試看　還是有顯示 "End of enocountered" 訊息　不過要調整　我不太拿手=.=!!!
Mr. tigerlee39y 　簡潔而力　值得學習

鞠躬　辛苦了

[andywilliams]

mrecno = recno()
FOR I = 2 to 5
str_I = str(I,1,0)
FOR J = 1 to 41
Skip
IF eof()
EXIT
ENDIF
NEXT
thisform.Grid&str_I..refresh
IF eof()
EXIT
ENDIF
NEXT
GO mrecno

[moon64]

謝謝MR.andywilliams 可是顯示問題很多.我有測試多多少少..不能正常 T_T

[moon64]

比如:一開始 ( proc thisform.INIT ) 設定下面顯示

grid1 = 1 ~ 41筆
grid2 = 42 ~ 82筆
grid3 = 83 ~ 123筆
grid4 = 124 ~ 164筆
grid5 = 165 ~ 205筆

若grid5 當主控制, grid5目前在顯示 165~205筆 ,
若在 165~205筆內不改變,若再按下鍵成 顯示 166~206筆改變下面

grid1 = 2 ~ 42筆
grid2 = 43 ~ 83筆
grid3 = 84 ~ 124筆
grid4 = 125 ~ 165筆
grid5 = 166 ~ 206筆

這樣意思, 難道 grid1~4 只能用 ( selet 方式 ), 只有 grid5 用( grid 方式 ) ?

請問 1. proc thisform.INIT 怎做?
　　 2. proc grid5 AfterRowColChange 怎做..... 謝謝

[andywilliams]

道理一樣,自己動動腦,師傅領進門,修行在個人...
2. proc grid5 AfterRowColChange
for I = 4 to 1
...
**也可設
proc thisform.Myproc
LPARAMETERS 物件名稱, Mrecno
...計算 grid1 的 recno
for I = 1 to 5
.....
由grid AfterRowColChange 傳入參數..給thisform.Myproc 統一處理
1. proc thisform.INIT 怎做? XX
proc thisform.GotFocus
..grid1.Setfocus

[moon64]

MR.andywilliams 謝謝你提到重點,謝謝,其餘我要加油摸索...^^..謝謝...謝謝...

[moon64]

問題已解決~~~謝謝大家