Fórum Adcionar 1 em um campo integer? #191580
29/10/2003
0
Tenho um campo chamado Ord_serv e quero que quando clickar no botão novo registro ele some + 1 um ao valor atual, teneti desta forma mas não deu certo:
Alguém pode me ajudar?
Peninha- Rio de janeiro
DmBasedados.ClienteDataSet1.Cod_ordserv.value := DmBasedados.ClienteDataSet1.Cod_ordserv.value + 1;
Alguém pode me ajudar?
Peninha- Rio de janeiro
Peninha
Curtir tópico
+ 0
Responder
Posts
29/10/2003
Luizfernando777
Caro colega,
vc precisa do ultimo valor antes
de atribuir o +1,
por isso não dá certo como vc fez,
tente assim
no evento do botão novoclick
var
vCod : Integer;
begin
DmBasedados.ClienteDataSet1.Last; // vai para o ult. registro
// se a base de tiver algum registro
if DmBasedados.ClienteDataSet1.RecordCount <> 0 then
vCod := DmBasedados.ClienteDataSet1.Cod_ordserv.value
else // caso contrário o cod. é 0
vCod := 0;
DmBasedados.ClienteDataSet1.Append;
DmBasedados.ClienteDataSet1.Cod_ordserv.value := (vCod+1);
end;
espero ter ajudado, caso não seja isso, ou se vc quiser um código mais complexo,
me diz o q vc precisa
vc precisa do ultimo valor antes
de atribuir o +1,
por isso não dá certo como vc fez,
tente assim
no evento do botão novoclick
var
vCod : Integer;
begin
DmBasedados.ClienteDataSet1.Last; // vai para o ult. registro
// se a base de tiver algum registro
if DmBasedados.ClienteDataSet1.RecordCount <> 0 then
vCod := DmBasedados.ClienteDataSet1.Cod_ordserv.value
else // caso contrário o cod. é 0
vCod := 0;
DmBasedados.ClienteDataSet1.Append;
DmBasedados.ClienteDataSet1.Cod_ordserv.value := (vCod+1);
end;
espero ter ajudado, caso não seja isso, ou se vc quiser um código mais complexo,
me diz o q vc precisa
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)