Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Problems repeating data vals/rows in Grid
Message
De
29/07/2004 14:04:21
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Problems repeating data vals/rows in Grid
Divers
Thread ID:
00929300
Message ID:
00929300
Vues:
43
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
Répondre
Fil
Voir

Click here to load this message in the networking platform