Also, an die DBLookUpComboBox hängst Du 'ne DataSource als ListSource ran, die auf die KundenTabelle zurückgreift.
Als ListField gibst Du den Kundennamen an, als KeyField die KundenNr.
Als nächstes 'ne
Query, 'nen Edit und 'nen Button auf den Form.
Den Button_OnClick event wie folgt gestalten :
Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
var
querystr : string;
begin
Query1.Close;
Query1.SQL.Clear;
querystr := 'select count(*) as Anzahl from Vertrag where KundenNr='''
+ DBLookupComboBox1.KeyValue + '''';
Query1.SQL.Add(querystr);
Query1.Open;
Edit1.Text := (Query1.FieldValues['Anzahl']);
Query1.Close;
end;
Das sollte so erst mal klappen, bleiben zwei Punkte :
1) Den ganzen Query1.open, etc... mit Try...except...end sicherer gestalten
2) Idealerweise müsste der obrige Code eher an einem 'SelectionChange' event der LookupCombo, damit sich das Edit Feld automatisch aktualisiert. Habe leider auf die Schnelle nichts Passendes gefunden.
Da kann Dir sicher jemand aus dem Forum weiterhelfen.
MfG
Lutz