Search Forum Home   Visual FoxPro  Clase - VCX si PRG  AddNewRec pt. D...  AddNewRec pt. DownArrow in grid    3/17/2011 12:14:55 PM AlexM 58 posts AddNewRec pt. DownArrow in grid  (Romania) Salut,in acces, sau sql server daca sunt pozitionat intr-o tabela pe ultima inregistrare, este adaugata automat o inregistrare noua ce poate fi completata cu date. Acelasi lucru vreau sa-l obtin in vfp9. Am cautat in documentatie si nu am gasit vre-o configuratie sau setare care sa permita acest lucru. Am creat o clasa txtgrdnewrec derivata din textbox, pe care o pot insera intr-un grid si sa o setez curent control pentru coloana parinte. In functie de txtgrdnewrec.lostfocus se face adaugarea de articole in tabela din controlsource. Pentru situatia cand tabela nu are deschis un index, verific dc inregistrarea curenta este not empty si adaug articol nou, iar daca este empty afisez un mesaj si ma pozitionez pe ea pentru completare. Nu imi dau seama de ce grid.relativerow imi returneaza tot timpul valoarea zero (ma aflu in grid.colomn.txtgrdnewrec.lostfocus) indiferent daca pun mai intai focusul pe grid, sau il las pe grid.colomn.txtgrdnewrec. Multumesc  3/17/2011 3:23:05 PM Grigore Dolghin 3590 posts www.class-software.eu Re: AddNewRec pt. DownArrow in grid  (N/A) Ai incercat sa pui Grid.AllowAddNew pe .T.? Grigore Dolghin Visual FoxPro MVP 2006 - 2010 Class Software My blog  3/17/2011 9:21:43 PM AlexM 58 posts Re: AddNewRec pt. DownArrow in grid  (N/A) Multumesc, e mult mai simplu asa. Mai jos am pus rezolvarea care poate fi utila si altora. PRIVATE _locate, _exact this.parent.parent.AllowAddNew=.f. IF LASTKEY()=24 IF !EOF() SKIP ENDIF IF EOF() _exact='set exact '+SET("Exact") SET EXACT ON SELECT (this.Parent.parent.recordSource ) IF !EMPTY(ORDER(this.Parent.parent.recordSource)) SEEK SPACE(0) ELSE _locate='LOCATE FOR EMPTY('+this.ControlSource+') all' &_locate endif IF FOUND() WAIT 'completeaza' wind ELSE this.parent.parent.AllowAddNew=.t. ENDIF &_exact ELSE SKIP -1 ENDIF ENDIF  Page 1 of 1   Visual FoxPro  Clase - VCX si PRG  AddNewRec pt. D... Flat View Tree View Oldest To Newest Newest To Oldest