Wie kann ich mit einer DBCombobox auf DBGrid zugreifen

[Thomas F]

Hallo,

ich möchte mit einer DBCombobox eine Auswahl treffen und dann soll in einem DBGrid die entsprechende
Reihe (Row) ausgewählt sein. Beide sind mit Dataset1 und Clientdataset1 mit der Databank verbunden.
In die DBCombobox1 werden die Werte der Datenbank eingetragen (FormShow)
Wenn ich jetzt DBCombobox1.itemindex :=3 auswähle, dann soll in der DBGrid1 die 4.Reihe ( DBCombobox1.itemindex +1) ausgewählt werden.
Ich bekomm das aber leider nicht hin. :wall:

Delphi-Quellcode:

 procedure TForm7.FormShow(Sender: TObject);
var i,k:integer; s:string;
begin
k:=unit9.Form9.ClientDataSet2.RecordCount;
unit7.Form7.DBComboBox1.Clear;

for i:=1 to k do
begin
unit9.Form9.ClientDataSet2.RecNo:= i;
 s:=unit9.Form9.ClientDataSet2Feld1.asstring;
dbcombobox1.Items.Insert((i-1),s);
end;

end;

[haentschman]

Hallo...

was für ein Wert steht in Feld 1 ?

du kannst dir mal Dataset.Locate anschauen. Diese Funktion setzt deinen Datensatzzeiger deiner Datenmenge auf den ersten gefundenen Wert.
... und das ganze ins OnChange der ComboBox.

:hi:

[Thomas F]

Ich hab die Lösung schon gefunden

DBCombobox1.onExit heißt das richtige Ereignis, es funktioniert

DANKE

Ich fahr jetzt zum Fußball

Club - Hansa (Live im DSF 20:15 )

Euch allen noch einen schönen Abend !

[haentschman]

Zitat:

DBCombobox1.onExit heißt das richtige Ereignis

...dann wird jedesmal beim Verlassen der Code ausgeführt. Im OnChange wenn der Eintrag der Combobox geändert wurde. Mich würde es verwundern, daß bei Änderung nichts passiert und dann beim Verlassen sich irgend etwas ändert. :gruebel:

PS: was führst du eigentlich für einen Code im OnExit aus ?

[Thomas F]

Zitat:

Zitat von haentschman

Zitat:

DBCombobox1.onExit heißt das richtige Ereignis

...dann wird jedesmal beim Verlassen der Code ausgeführt. Im OnChange wenn der Eintrag der Combobox geändert wurde. Mich würde es verwundern, daß bei Änderung nichts passiert und dann beim Verlassen sich irgend etwas ändert. :gruebel:

PS: was führst du eigentlich für einen Code im OnExit aus ?

Mit OnChange hab ich es auch probiert, geht aber nicht

Ganz einfach gesagt , wählt man mit der DBCombobox den Datensatz im DBGrid aus !

Die DBCombobox enthält dieselben Einträge wie die erste Spalte der DBGrid.

Da das DBGrid unsichtbar ist, habe ich eben eine DBCombobox für die Auswahl genommen

Delphi-Quellcode:

procedure TForm7.DBComboBox1Exit(Sender: TObject);
begin
if   unit9.Form9.ClientDataSet2.RecordCount > 0 then
unit9.Form9.ClientDataSet2.RecNo:= dbcombobox1.ItemIndex+1;
end;