Problem with change value in DBF field
lazarus / 16-Databases

----------------------------------------------------------------------
ribarvlada · 2011-07-31 17:13

I was create DBF file using MyDbfStudio
RACUN.DBF
 sifra      string  4
 naziv     string  30
 kol         float    10
 cena      float    10
 tarifa     string   1
 popust   float     5
 stopa     float     5

when I inserted new record, everthing is OK, but when I find thet
SIFRA exist and I wont add value nKol on KOL
nothing was happend, value in field KOL stay same as before. Here is
code
Code: [Select]     
nKol:=ZQueryIzRestorana.FieldByName('Kolicina').AsFloat;
      .
      .
      .
      Racun.First;
      lFound:=Racun.Locate('Sifra', cSifra, []);
      if not lFound then
       
Racun.InsertRecord([cSifra,cNaziv,nKol,nCena,cTarifa,nPopust,nStopa])
      else
      begin
        nKol:=Racun.FieldByName('KOL').Value+nKol;
        Racun.FieldByName('KOL').Value:=nKol; <== try put nKol into
KOL  but nothing was happend
      end;
      Racun.Edit;
      Racun.UpdateRecord;
can some help me