Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Grid does not refresh after adding empty row
Message
De
21/01/2003 14:27:09
 
 
À
18/01/2003 12:12:04
Cetin Basoz
Engineerica Inc.
Izmir, Turquie
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00743140
Message ID:
00743859
Vues:
15
>>I have found that grid dows not show added row in some case, if
>>grid is empty.
>>I preparead a sample about this at www.eetasoft.ee/gridnotrefreshed.zip
>>
>>1. Unpack files to some directory
>>
>>2. Run VFP 7 IDE
>>
>>3. SET DEFAULT TO the directory where you unzipped files.
>>
>>4. DO MAIN
>>
>>
>>Result observed:
>>
>>Empty grid
>>
>>
>>Result expected:
>>
>>Line with word Hello in first column in grid.
>>Press Ctrl+Tab in grid to see expected result.
>>
>>Any ides how to force grid to refresh in this case ?
>>
>>I tried refresh, wait window timeout, doevents, acti window/deactivate window nut this does not help.
>>
>>Any ides how to fix this ?
>>
>>my row adding method contains the code:
>>
>>
>>sele (thisform.brtabel)
>>append blank
>>REPLACE klient WITH 'hello'
>>unlock
>>thisform.gridbase1.setfocus()
>>thisform.boundcontrolinteractivechange()
>>
>
>
*...
>unlock
>with thisform.GridBase1
> .RecordSource = .RecordSource
> .setfocus()
>endwith
>*...
Cetin,

I found that adding this line loses current row in grid:
first row becomes current row always.
I added the recno() save and restore:
nr = RECNO()
with thisform.GridBase1
 .RecordSource = .RecordSource
 .setfocus()
endwith
BROWSE TITLE TRANSFORM(nr) FIELDS rno=RECNO()
GO (nr)
I got an error "Record is out of range" in the
GO (nr) line.

BROWSE command shows -1 in title and also shows that a record having recno() -1 exists.

Any ideas why GO (nr) fails ?
Andrus
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform