Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

OnCalcField ClientDataSet

[es] :: Pascal / Delphi / Kylix :: OnCalcField ClientDataSet

[ Pregleda: 1448 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

Markanto
Marko Antolović
admin, zk
Buševec

Član broj: 184593
Poruke: 55
*.adsl.net.t-com.hr.



+3 Profil

icon OnCalcField ClientDataSet20.01.2010. u 11:38 - pre 173 meseci
Na clientDataSetSuma imam onCalcField event koji mi daje neku sumu!
Event sam maknuo i pozivam ga sa btnClickom -> clientDataSetSuma.OnCalcFields := clientDataSetSumaCalcFields;
Pošto kasnije ponovno pozivam clientDataSetSuma ( sa clientDataSetSuma.first), da mi se isti code ne vrti dvaput (pa čak i 3. puta),
kažem clientDataSetSuma.OnCalcFields := nil;
Tu sada dolazi do problema, jer polje (suma) koje mi je racunao na onCalcField mi se izgubi u clientDataSetSuma! Sve mi stavi na 0!
Nil-anjem procedure clientDataSetSuma.OnCalcFields mi nestanu podaci koje sam dobio istom procedurom !
Kako to izbijeći/riješiti ??

Kako nil-ati onCalcField, a da se u clientdataset-u ne mijenja ništa !!?


[Ovu poruku je menjao Markanto dana 20.01.2010. u 13:07 GMT+1]
 
Odgovor na temu

Markanto
Marko Antolović
admin, zk
Buševec

Član broj: 184593
Poruke: 55
*.adsl.net.t-com.hr.



+3 Profil

icon Re: OnCalcField ClientDataSet21.01.2010. u 09:11 - pre 173 meseci
Imam mozda jednostavnije pitanje!

var
Form1: TForm1;
running : Currency;

implementation

{$R *.dfm}

procedure TForm1.SQLQuery1CalcFields(DataSet: TDataSet);
var
dug_sveukupno : Currency;
begin
dug_sveukupno := SQLQuery1DUG_SVEUKUPNO.AsCurrency;
running := running + dug_sveukupno;

SQLQuery1RUNNING.Value := running;
end;


Ovo mi sada sve radi ok, samo što mi kod prvog zapisa kaže da je dug_sveukupno = 0, a dug_sveukupno je 850?
Zašto mi za prvi zapis daje nulu ?
 
Odgovor na temu

Markanto
Marko Antolović
admin, zk
Buševec

Član broj: 184593
Poruke: 55
*.adsl.net.t-com.hr.



+3 Profil

icon Re: OnCalcField ClientDataSet21.01.2010. u 10:57 - pre 173 meseci
http://cc.embarcadero.com/item/25939

* When using TSQLQuery to add calculated fields, OnCalcFields
fails on the first record, because all of the fields in the
first record are empty after OnCalcFields is called (Quality
Central 1328).

Možda neko ima već skinut taj update?
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: OnCalcField ClientDataSet

[ Pregleda: 1448 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.