Wegen dem Primary Key... OK aber da muß ich einiges umstellen, irgendetwas hatte ich mir dabei gedacht, aber was wohl
Naja... mal sehen ob ich das noch hinbekomme...
Jetzt mal so wie ich das gelöst habe... zumindest so wie es einigermaßen funktioniert. Ich hatte nicht alles gepostet, ich wollte eigentlich nur einen Ansatz wissen...
Nachmal vielen Dank für eure Hilfe... Ich hoffe ich kann auch mal helfen aber mein wissen beschränkt sich bis jetzt nur auf Fragen
Hier jetzt das Resultat, ich habe noch eine Tabellen mehr mit eingebracht. Wäre das auch mit einem JOIN gegangen? Nur so als Frage, da es jetzt funktioniert will ich es nicht noch einmal umschreiben... bin etwas unter Zeitdruck
Greets
Luciano
Delphi-Quellcode:
Anfrage2 := '
( SELECT '+
'
FAKTURIERUNG.KONTRAKT_NR, '+
'
FAKTURIERUNG.LFDNR, '+
'
FAKTRELA.FAKTURIER_LFDNR, '+
'
FAKTRELA.LFDNR, '+
'
FAKTRELA.RELATION1, '+
'
VONNACH.FAKTRELA_LFDNR, '+
'
VONNACH.LFDNR, '+
'
VONNACH.SUMME, '+
'
FAKTFAKTOR.VONNACH_LFDNR, '+
'
FAKTFAKTOR.LFDNR '+
'
FROM '+
'
FAKTURIERUNG, FAKTRELA, VONNACH, FAKTFAKTOR '+
'
WHERE '+
'
FAKTURIERUNG.KONTRAKT_NR = '+QuotedStr(DataModule1.Q_PARTIEDAMPFKontrakt_nr.Value)+
'
AND FAKTRELA.FAKTURIER_LFDNR = FAKTURIERUNG.LFDNR '+
'
AND VONNACH.FAKTRELA_LFDNR = FAKTRELA.LFDNR '+
'
AND FAKTFAKTOR.VONNACH_LFDNR = VONNACH.LFDNR )';
//ShowMessage(Anfrage2);
with DataModule1.Q_TEST
do
begin
Close;
SQL.Clear;
SQL.Add(Anfrage2);
Open;
end;
with DBGrid21
do
begin
Columns.Add;
Columns[0].FieldName := '
KONTRAKT_NR';
Columns[0].Title.Caption := '
Kontraktnr.';
Columns.Add;
Columns[1].FieldName := '
SUMME';
Columns[1].Title.Caption := '
Fakturiersatz';
Columns.Add;
Columns[2].FieldName := '
RELATION1';
Columns[2].Title.Caption := '
Relation';
end;