Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Vfp50 - Using BLANK records as new records?
Message
De
21/05/1997 08:34:26
 
 
À
20/05/1997 14:44:06
Matt Mc Donnell
Mc Donnell Software Consulting
Boston, Massachusetts, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00032970
Message ID:
00033061
Vues:
38
>>I want to use up all the BLANK records that were made with a APPEND BLANK but never used. I do not want to PACK. What do I search for when looking for BLANK records?
>>
>>SCAN FOR empty(myfield)
>>IF FOUND()
>> GOTO RECNO()
>> THISFORM.REFRESH()
>>ENDIF
>>ENDSCAN
>
>don't need the IF FOUND(), the SCAN controls that
>don't need the goto, scan moves the pointer
>
>Don't do a refresh, use Show(1)[1 is modal], when your entries are done, call Hide and then the scan will continue.
>
>In other words...
>
>*SCAN FOR empty(myfield)
>* THISFORM.SHOW()
>*ENDSCAN
>
>HTH

Hi Matt... thanks for the code... here is my code... it is in a ADD RECORD button Clicked event. I am trying to add blank records to a GRID. If the GRID
has Deleted records, I am trying to use those up...something is wrong, because
it will not use the deleted records as the new blank record... will you look at this code?
thanks again...rob



found_one = .f.
rec=0
do while !eof()

if empty(name)
dele
endif

if deleted()
recall
store .t. to found_one
rec=recno()
exit
endif

skip 1
enddo

if found_one = .f.
append blank
thisform.grid1.column1.text1.setfocus
endif

if found_one = .t.
goto rec
thisform.grid1.column1.text1.setfocus
endif

*thisform.grid1.refresh()
Robert Keith
Independent Developer
San Antonio, Texas
E-mail address:
rebelrob1@yahoo.com
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform