No Regreso en el DbGrid

[Gangster]

Empezado por maxvera

Bien.

No sé si me paso de listo (por la sencillez de la respuesta), pero esto debería funcionar:

Código Delphi [-]procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin if Table1.RecNo < Table1.RecordCount then Table1.Last;
end;

Hola MaxVera Pero lo puse asi tal y como me dices pero entonces escribo un renglon en el dbgrid pero al dar la tecla tab no me deja pasar de renglon, y no puedo seguir escribiendo en le grid se queda ahi,como que dice estoy en el ultimo renglon y no me deja escribir otro lo toma ese renglon como el ultimo en la tabla, alguna otra sugerencia o idea, o que error este cometiendo este es mi codigo.

recdetail es mi tabla.

le puse el recordcount = 1, porque sin el ni me deja escribir en el primer renglon. siempre estaria en el ultimo

procedure TASEcom.tbRecDetailAfterScroll(DataSet: TDataSet);
begin
if(ASEcom.tbRecDetail.RecordCount = 1)then
begin
if (ASEcom.tbRecDetail.RecNo < ASEcom.tbRecDetail.RecordCount) then
ASEcom.tbRecDetail.Last;
end;
end;

[maxvera]

Prueba esto (con las modificaciones adecuadas a tu código):

Código Delphi [-]
procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin
  if (not Table1.State in [dsEdit, dsInsert])
  and (Table1.RecNo < Table1.RecordCount)
  then Table1.Last;
end;

[Arturo_]

Mira lo que tienes que hacer es:
En este codigo si es primer registro no inserta nada, pero si la tabla contiene registros inserta uno nuevo ok.

if (Table1.RecountdCount <> 0) then
Table1.Append
Table1.Edit;
Table1.FieldByNAme('Nombre').AsString := 'Hello';
Table1.Post;