Label, Editfeld und DBlookupListbox

[Hansa]

Hi,

so ganz fertig ist das ganze noch nicht, zumindest funktioniert es jetzt richtig. Aber gestern hatte ich nicht gemerkt daß hier :

Code:

ArtDs.SelectSQL.Text := 'SELECT * FROM ART8 WHERE NR = ' + ArtNrEdit.Text;
  ArtDS.Active := true;
  WGDS.active := false;
  WGDS.SelectSQL.Text := 'SELECT * FROM WG8 WHERE ID = :ID';

das :ID noch durch eine feste Zahl ersetzt war. 8) Natürlich lief es dann, weil das die passenden Zahlen waren.

Jetzt habe ich das zweite Select hierdurch ersetzt :

Code:

WGDS.SelectSQL.Text := 'SELECT * FROM WG8 WHERE ID = ' + IntToStr (ArtDS.FieldByName ('ID_WG').AsInteger);

Muß das tatsächlich so umständlich gemacht werden? Deshalb nochmals die Frage: Wie kriege ich die ID_WG aus dem ersten Select als Parameter an die zweite Übergeben ?

Gruß
Hansa