Duvida ???? Iniciante !!

Coloque uma Query com o nome de QryContador
na Propriedade SQL Coloque:
[b:734a80c095]SELECT MAX(Cod_cli) AS codigo FROM CadCliente[/b:734a80c095]

No evento BeforePost do Seu Table coloque:

procedure TForm1.Table1BeforePost(DataSet: TDataSet);
begin
if Table1.State = dsInsert then // Se esta em modo de inserção
begin
QryContador.Active := False;
QryContador.Active := True;
with QryContador.Fields[0] do
if IsNull then // Se for o Primeiro registro
Table1Codigo.Value := 1
else
Table1Codigo.Value := AsInteger + 1;
end;
end;

Isso vai funcionar!
Espero que ajude! :wink:

QryContadorCliente.Active := false;
QryContadoCliente.Sql.Add(´select Max(codigo) from cliente´);
QryContadorCliente.Active := true;
with QryContadorCliente.fields[0] do
begin
if isnull then
DM_Agrofax.TabClienteCodigoCliente.Value := 1
else
DM_Agrofax.TabClienteCodigoCliente.Value := AsInteger + 1;
end;
QryContadorCliente.Active := false;