Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Problems repeating data vals/rows in Grid
Message
From
29/07/2004 14:04:21
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Problems repeating data vals/rows in Grid
Miscellaneous
Thread ID:
00929300
Message ID:
00929300
Views:
45
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
Reply
Map
View

Click here to load this message in the networking platform