Hallo kico
Hast Du beide Felder (Integerwert und BerechnetesFeld) in Deiner Abfrage hinzugefügt? Zur Kontrolle habe ich das Programm bei mir getestet und es funktioniert einwandfrei. Bitte füge die Felder mit dem Editor (Doppelclick auf die Abfrage) hinzu.
Im Beispiel greife ich über eine TADOConnection auf eine Accessdatenbank zu. Die Datasource des DBGrids ist mit einer TADODataSet verbunden, diese wiederum mit der TADOConnection.
Zur Illustration einmal ein Ausschnitt vom Interface-Teil
Delphi-Quellcode:
type
TForm1 =
class(TForm)
ADOConnection: TADOConnection;
query: TADODataSet;
DBGrid: TDBGrid;
queryIntegerwert: TIntegerField;
//Integerwert (Dein Datenbankfeld)
DataSource: TDataSource;
queryBerechnetesFeld: TStringField;
//Berechnetes Feld
procedure queryCalcFields(DataSet: TDataSet);
//
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
Die Abfrage muss beim Starten aktiv sein!
Gutes Gelingen
mfg
Armin