Zusätzliche Spalte im DbGrid durchnummerieren

[Postman1986]

Hallo,

hab hier ein kleines Problem mit einem DbGrid. Ich lade eine Reihe von Daten aus einer MySQL Tabelle. Die erste Spalte bleibt dabei frei, dort sollen die Einträge durchnummeriert werden. Wie kann ich die Tabelle nun manuell mit dieser Nummerierung füllen? Mit OnDrawDataCell bekomme ich irgendwie keinerlei Ereignis ausgelöst, zumal ich dann noch nicht die aktuelle Zeilennr. habe usw.

Jemand ne Idee?

[marabu]

Hallo,

wenn die Zugriffskomponenten von TDataSet abgeleitet sind, dann kannst du vielleicht TDataSet.RecNo in einem calculated field bereit stellen.

Grüße vom marabu

[Postman1986]

Ja, nur in welches Ereignis soll ich das einfügen.

Hab bereits OnDrawDataCell im DBGrid und AfterExecute in TMyQuery ausprobiert und noch nicht mal ein simples Showmessage() ausgelöst bekommen.

[marabu]

Hallo,

kannst du nicht einfach per Doppelklick auf die Dataset-Komponente zur Entwurfszeit ein berechnetes Feld hinzufügen und den Wert beim Ereignis OnCalcFields() setzen?

Freundliche Grüße

[Postman1986]

Also Felder bzw. Spalten habe ich dort bereits einige eingefügt, alle außer der 1. Spalte werden halt mit Daten aus dem Query gefüllt. Wenn ich nun allerdings sowas hier probiere passiert garnichts:

Delphi-Quellcode:

 for i := 0 to 10 do
    Dataset.FieldByName('Nr').AsString := IntToStr(i);

Der FieldName der Spalte ist "Nr"

[marabu]

Ich kann nicht erkennen, wann und wo du deinen Code ausführst. Ich stelle mir das so vor, dass du im Object Inspector den Rahmen für das Ereignis OnCalcFields() erzeugst und dann diesen Code einfügst:

Delphi-Quellcode:

procedure TDemoForm.QueryCalcFields(DataSet: TDataSet);
begin
  with DataSet do
    FieldValues['NR'] := RecNo;
end;

[Postman1986]

Hm, damit klappt's leider auch nicht, die 1. Spalte bleibt einfach leer.

Delphi-Quellcode:

procedure TMain.mydacQueryMainCalcFields(DataSet: TDataSet);
begin
  with DataSet do
    FieldValues['Nr'] := RecNo;
end;

[marabu]

Solange niemand antwortet, der konkrete Erfahrung mit den von dir verwendeten Komponenten besitzt, solltest du systematisch vorgehen: Versuche festzustellen, ob RecNo überhaupt den verlangten Inhalt hat. Und deinen Event Handler kannst du auch prüfen, indem du eine Konstante zuweißt.

[Postman1986]

Was genau meinst du mit Konstante?

Sowas wie

Delphi-Quellcode:

procedure TMain.mydacQueryMainCalcFields(DataSet: TDataSet);
begin
showmessage('test');
end;

führt jedenfalls auch zu keinem Ergebnis :(

[marabu]

Wenn du dein Projekt (oder besser ein kleines Demoprojekt - ohne EXE und DCU) zum Herunterladen bereit stellst, kommen wir vielleicht weiter.