[ Markanto @ 20.01.2010. 11:38 ] @
| 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] |
[ Markanto @ 21.01.2010. 09:11 ] @
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 ?
[ Markanto @ 21.01.2010. 10:57 ] @
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?
Copyright (C) 2001-2025 by www.elitesecurity.org. All rights reserved.