Resposta
23/05/2003
0
Olha vc pode colocar assim
if key=VK_Return then // se enter foi teclado
begin
DBGrid1.SelectedIndex := DBGrid1.SelectedIndex + 1; avança +1 coluna
end;
if DBGrid1.SelectedIndex = 2 then {quantidade de campos}
begin
DBGrid1.SelectedIndex := 1;
Tabela.Next; {ou insert}
end;
if key=VK_Return then // se enter foi teclado
begin
DBGrid1.SelectedIndex := DBGrid1.SelectedIndex + 1; avança +1 coluna
end;
if DBGrid1.SelectedIndex = 2 then {quantidade de campos}
begin
DBGrid1.SelectedIndex := 1;
Tabela.Next; {ou insert}
end;
Wallacest
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)