TDBGrid mit Master/Detail?

[NoGAD]

Danke für die Erklärung.

Ich habe versucht es zur Laufzeit einzubauen, es kommt immer die Fehlermeldung, dass das Feld 'book_author' nicht existiert.

Die Tabelle wurde erstellt, im Anschluss wird das Lookup-Feld angelegt. Mein Code für das Lookup-Feld sieht jetzt so aus:

Delphi-Quellcode:

var
  NewField: TField;
begin
    if Table2.FieldDefs.Updated = False then
      Table2.FieldDefs.Update;
    if Table12FindField('lfAuthor') = nil then
    begin
      NewField := TStringField.Create(Table2);
      NewField.FieldName := 'lfAuthor'; // Lookup Field Author
      NewField.SetFieldType(ftString);  // String
      NewField.Size:=255;
      NewField.KeyFields := 'book_author'; // Field aus Table1
      NewField.LookUpDataset := Table1;
      NewField.LookUpKeyFields := 'id'; // Field aus Table2
      NewField.LookUpResultField := 'autor_nachname'; // Field aus Table2, welches über die id, die in 'book_author' steht, angezeigt werden soll
      NewField.FieldKind := fkLookup;
      NewField.DataSet := Table2;
    end;

[Neumann]

Wenn Table1 die ID für den Lookup enthält, dann muss da die Lookup-Geschichte definiert werden. Eigentlich ganz einfach zusammencklickbar, wenn man persistente Felder benutzt.

Einfach Dataset - Feldeditor - Neues Feld bei Tabelle1.

Manuell sollte es aber auch gehen.

[NoGAD]

Zitat von Neumann:

Wenn Table1 die ID für den Lookup enthält, dann muss da die Lookup-Geschichte definiert werden. Eigentlich ganz einfach zusammencklickbar, wenn man persistente Felder benutzt.

Einfach Dataset - Feldeditor - Neues Feld bei Tabelle1.

Manuell sollte es aber auch gehen.

Die ID aus Tabelle1 ist eine Referenz auf Tabelle2, als Integer. Also in Tabelle2 stehen Werte, die im DBGrid erscheinen sollen, owohl eigentlich nur Tabelle1 im DBGrid angezeigt wird.

LG Mathias

[Uwe Raabe]

Dann müsste es aber eher so aussehen:

Delphi-Quellcode:

      NewField := TStringField.Create(Table1);
      NewField.FieldName := 'lfAuthor'; // Lookup Field Author
      NewField.SetFieldType(ftString); // String
      NewField.Size:=255;
      NewField.KeyFields := 'book_author'; // Field aus Table1
      NewField.LookUpDataset := Table2;
      NewField.LookUpKeyFields := 'id'; // Field aus Table2
      NewField.LookUpResultField := 'autor_nachname'; // Field aus Table2, welches über die id, die in 'book_author' steht, angezeigt werden soll
      NewField.FieldKind := fkLookup;
      NewField.DataSet := Table1;

[NoGAD]

Guten Morgen!

Nochmal zum Verständnis für mich:

das Feld lfAuthor darf nicht existieren, damit das ganze funktionieren soll?


@Uwe Raabe: Danke, leider gibt es immer noch den Fehler, dass das Feld: book_author (gibt es in table1) nicht existiert.

Lasse ich im Code: NewField.DataSet := Table1; weg, lauft es durch, aber das Lookup-Feld wird im DBGrid nicht angezeigt.

LG

[Uwe Raabe]

Mach doch mal ein komplettes Beispiel, damit wir genau wissen, was wo ist und was nicht.

[NoGAD]

Hallo,


es hat eine Weile gedauert, ich hatte noch andere Sachen zu tun.

Anbei mein Projekt.

In der Unit: Hauptformular.pas ist betreffende Passage ab Zeile 430.

Delphi-Quellcode:

function TForm_Hauptformular.Create_MyABSTable: Boolean;
{ :: Create Query(s) and Table(s) if not exists - }

Für die Kompilierung werden noch viele Komponenten benötigt, die ich teilweise selbst erstellt habe. Außerdem ABS Database.

Für Hinweise wäre ich sehr dankbar

Habt einen schönen Start in die neue Woche.