Aggregated Field summiert falsch

[Rainer Wolff]

Hallo,

ich versuche mich gerade an aggregated fields im Clientdataset. Wenn ich bei meinen Float-Datenbankfeldern, die als TSingleint im Dataset landen, eine Summe bilden will, bekomme ich einen Wert wie 5,68248093194E-315 zurück, obwohl normale Zahlen in den Feldern stehen. Die selbe Aufsummierung über ein Integerfeld funzt hingegen. Im Anhang habe ich einen Screenshot beigefuegt (numerototal und qtotal sind die int bzw. float-summen von numerofusion und quantite1)
Kennt jemand dieses Problem?

Gruß Rainer

[p80286]

hast Du mal versucht die Darstellung zu ändern?
z.B.

Code:

To_Char(mysum,'999999.99999')

(ich gehe mal davon aus, daß die Grundlage Deiner Anzeige eine Query ist)

Gruß
K-H

[Rainer Wolff]

Ich weiss nicht, an welcher Stelle ich das to_char jetzt anbringen soll?

Min, max, count funktionieren, aber sum, avg bringen abstruse Werte

[Rainer Wolff]

Inzwischen habe ich in der dbclient.pas folgenden Code gefunden:

Code:

function AggValueAsVariant(Agg: TAggregate; Buffer: Pointer): Variant;
var
  C: Currency;
begin
  case Agg.DataType of
    ftByte:
      Result := Byte(Buffer^);

   ....

    TFieldType.ftSingle:
      Result := Single(Buffer^);
    ftFloat:
      Result := Double(Buffer^);
    ftBCD, ftFMTBcd:
.....

An der Stelle wird der Code fuer ftFloat ausgefuehrt, obwohl mein Feld vom Typ TSingleField ist. Und sobald ich statt Sum als Aggregatfunktion Min oder Max wähle, wird mein Feldtyp ftSingle und die Aggregatfunktion stimmt.

Aber sonst bin ich im VCL-Code noch nicht durchgestiegen, wann welcher Feldtyp gewählt wird.