I have a Grid in my VFP8 form that is based on table (recordsource) and has linkmaster relationship to another table (via join field setup at Form load).
Actions executed:
=================
1) I scroll down with scrollbar, then mouse-click on row to move highlight to new grid row, and record in recordsource.
2) I use mouse to move box in scrollbar to top of scrollbar. I mouse-click on top row in Grid.
===========================================================================
Results:
========
The data values from highlighted row in grid after original scroll action 1), now appear repeated in every row in the grid.
If I click on a different row to reset highlight to different row in the
grid, than the recordsource cursor is fine, and each row shows correct
range of rows in recordsource table. If I scroll again, the rows repeat
to last highlighted row data.
===========================================================================
NOTES:
Form.Load()
===========
USE DD_tasklist SHARED
USE DD_tskdwgs SHARED
=CURSORSETPROP("buffer",5,"DD_tasklist")
=CURSORSETPROP("buffer",5,"DD_tskdwgs")
Grid properties:
================
Recordsource: dd_tskdwgs
Linkmaster: dd_tasklist
RelationalExpr: str(Tl_id,10,0) (dd_tasklist.Tl_id)
dd_tasklist.tl_id <---> dd_tskdwgs.td_tlid
Grid.AfterRowColChange()
========================
LPARAMETERS nColIndex
THIS.REFRESH()
IF DD_tskdwgs.td_dcn>0
THISFORM.p_dcn = DD_tskdwgs.td_dcn
SELECT * FROM DD_dwgqcmain ;
WHERE dq_dcn = DD_tskdwgs.td_dcn ;
INTO CURSOR curQC
*!* l_QcCount = RECCOUNT()
IF RECCOUNT()>0
THISFORM.pfrTasks_Dwgs.pagDwgs.chkQA.Value=1
THISFORM.p_qacomp = .T.
ELSE
THISFORM.pfrTasks_Dwgs.pagDwgs.chkQA.Value=0
THISFORM.p_qacomp = .F.
ENDIF
THISFORM.pfrTasks_Dwgs.pagDwgs.chkQA.Refresh
ENDIF
dbk
Don