VFP 愛用者社區

[achoumean]

在form中有兩個grid可是無法連動,我是要做當grid1移動列時,grid2能顯示相對應的明細資料,但是grid2卻始終只顯示第一筆資料,程式碼如下,請各位先進指點迷津.
CLEAR
CLEAR ALL
SET ESCAPE ON
SELE 0
create cursor 'compose'(itemno c(15),bitemno c(15),pgk n(4,0))
SELE 0
create cursor 'comtemp'(itemno c(15),bitemno c(15),pgk n(4,0))
append from '..\casio930\compose.dat' sdf
index on itemno tag itemno
go top
SELE 0
create cursor 'm2'(itemno c(15),pgk n(4,0),l_pgk n(4,0),p_date c()
append from '..\casio930\m2.txt' sdf
index on itemno tag itemno1
set order to itemno1
go top
do while !eof()
sele comtemp
if !seek(m2.itemno)
messagebox('查無此'+m2.itemno+'品號之壓塊明細資料，請確定')
else
do while itemno = m2.itemno and !eof()
sele compose
append blank
repl itemno with comtemp.itemno
repl bitemno with comtemp.bitemno
repl pgk with comtemp.pgk
sele comtemp
skip
enddo
endif
sele m2
skip
enddo
SELE compose
index on itemno tag itemno2
set order to itemno2
sele m2
set rela to itemno into compose

[garfield]

你在grid1的 AfterRowColChange() 裡面寫一小段程式碼
thisform.grid2.columns(1).text1.setfocus()
這個grid2的裡面才會更新.

[achoumean]

還是不行 只看到grid2畫面閃一下
不知我是錯在什麼地方

[garfield]

你這一段create cursor 的程式碼是寫在那裡.

[achoumean]

這是在主程式裡

我有試過開成實體檔去看rela的結果,兩個資料檔是有關聯到,
只是在form裡面的兩個grid就是沒有連動,不知是哪裡沒弄好.

[garfield]

你那段程式沒問題,
只能猜想癥結可能是出在你的grid.RecordSource 上,
沒原始碼沒真相.

[achoumean]

如附件,麻煩您幫我看看

[achoumean]

真的是RecordSource沒設到,感謝前輩指教,謝謝