Editfelder Automatisch Wert aus ComboBox eintragen

[Christian Viets]

Hallo,
Ich habe ein Listenfeld mit allen Werten einer Spalte erstellt. Jetzt soll, wenn ein Wert ausgewählt ist, alle anderen Werte des Datensatzes in die entsprechenden Felder (Edit1 = Vorname; Edit 2 = Nachname ....) eingetragen werden.
Danke im voraus.

[Fred Nest]

Hi Christian!<br>

Präzisiere bitte Deine Aufagbenstellung etwas.<br>
Wo wird was wann ausgewählt, und wo kommen Deine<br>
Daten her.<br>

Gruß Fre

[Christian Viets]

Hallo, Ich habe ein Listenfeld mit allen Werten einer Spalte erstellt. Jetzt soll, wenn ein Wert ausgewählt ist, alle anderen Werte des Datensatzes in die entsprechenden Felder (Edit1 = Vorname; Edit 2 = Nachname ....) eingetragen werden. Das soll wie folgt aussehen

ComboBox hat den Wert XYZ (Beispielsweise ein Nachname / Wert aus der SQL - Datenbank - Spalte Nachname)

Jetzt habe ich mehrere Editierfelder, wo die einzelnen Daten geändert werden sollen.

Editierfeld (Vorname)

Editierfeld (Nachname)

Editierfeld (Ort)

Bei der Auswahl eines Wertes in der ComboBox, sollen diese Werte(die noch zu dem Datensatz gehören ) in die Editierfeld eingetragen werden.

Danke im Vorau

[Fred Nest]

Hi Christian!<br>

In der ComboBox gibt es ein funktion die bei Änderung<br>
ein Ereignis auslöst, und in dieser weist Du den einzelnen<br>
edit's den Inhalt zu.<br>
Genaueres morgen früh.( habe im moment nur mfc hier );<br>

Gruß Fre

[Fred Nest]

Hi Christian!<br>
TComboBox ist eigentlich nicht die richtige Wahl.<br>
Über ItemIndex bekommst Du den ausgewählten String.<br>
Mit CB->Items->Item[CB->ItemIndex] den Inhalt.<br>
In DB->DataSource->OnDataChange(...) muß Du auf die<br>
Änderung reagieren und Deine Edits füllen.<br>
Wenn die Änderung schon in der ComboBox erfolgen darf,<br>
dann in OnChange der ComboBox.<br>
Hier ein Beispiel aus meinem Program.<br>
<PRE>
void __fastcall TStdLib:SStdDataChange(TObject *Sender, TField *Field)
{
if( isName == 0 )
EdName->Text = DSStd->DataSet->FieldByName("Name")->AsString;
ZeL->Value = DSStd->DataSet->FieldByName("L")->AsFloat;
ZeB->Value = DSStd->DataSet->FieldByName("B")->AsFloat;
ZeH->Value = DSStd->DataSet->FieldByName("H")->AsFloat;
}
</PRE>

Gruß Fre