Da asta era ideea, este mai bine ca toate validarile sa se faca la un loc nu pe controale.

Sa discutat asta aici: Visual FoxPro  Form-uri şi generatoare de form-uri  apelare form

Dar idea este ca din mendiul foxului iti functioneaza, dar pe cont propiu nu functioneaza daca nu pui: READ EVENTS.

Read Events porneste interpretorul si trebuie executata dupa ce pornesti prima forma, dar dupa ce pornesti meniul aplicatiei daca ai unul.

Salut. Deci vrei din 10 in 10 :)

Ok. Cum sa afisezi in gridul de sus ti-a explicat foarte bine Kampel, desi poti sa faci mai frumos:

Select( NumeTabele)

scatter name oInregistrare memo

select( Tabele2)

delete all && pentru afisarea precedenta, desi poate ar trebui doar delete

insert into &Tabela2 from name oInregistrare.

Cat despreinregistrari din 10 in 10, nu am inteles daca vrei sa-ti sara la a 10 inregitrare dupa o anumita conditie care sa semene cu inregistrare curenta sau doar a 10 din gridul de jos, si deci o sa presupun ca nu este nici o conditie asa ca:

Select( NumeTabele)

for nContor = 1 to 10

   skip

   if eof()

   *--Am ajuns la sfarsitul tabelei. Aici te poti intoarce cu un pas si-i afisezi ultima inregistrare daca vrei

      exit

   endif

endfor

*--Daca am iesit din for si nu suntem la eof() afisam inregistrarea

*--Aici daca faci o metoda din codul de mai sus apelezi doar metoda.

*--Mai este o problema. Prima oara cand apesi butonul trebuie sa stii daca vrei sa afisezi inregistrarea curenta sau a 10, si in consecinta pui o propietate a formei, lFlag sa zicem, iar in afterrowcolchange al gridului 1 faci thisform.lFlag = .F., iar pe butonul de afisare:

if thisform.lFalg

   *--Trebui afisata a 10-a inregistrare, si anume for-ul de mai sus

else

   *--Trebuie afisata inregistrarea curenta, adica apelata direct metoda de afisare

endif