Hallo Mike_C,
anbei sende ich Dir erstmal ein UP (=Unterprogramm) zum Füllen Deiner ComboBoxen mit Daten aus einer Datenbank. Die Bedingungen, welche ComboBox mit welchem Feld aus welcher Datei gefüllt werden soll, kannst Du ja drum herum schreiben.
Delphi-Quellcode:
{UP initialiesiert die ComboBox mit den zur Auswahl bestimmten Feldern, die
der Tabelle Tab entnommen werden
- Tab muß zuvor geöffnet worden sein
- die sortierung wird immer auf true gestellt}
procedure UP_CBInit(Tab : TTable; combobox : TComboBox; fld : String);
var
s : string;
i : integer;
gefu : boolean;
begin
if not Tab.Active then exit;
combobox.Clear;
combobox.Sorted := true;
Tab.First;
while not Tab.Eof do begin
s := trim(Tab.FieldByName(fld).AsString);
if s <> '' then begin
gefu := false;
for i := 0 to combobox.Items.Count - 1
do gefu := gefu or (s = combobox.Items.Strings[i]);
if not gefu then combobox.Items.Add(s);
end;
Tab.Next;
end;
combobox.DropDownCount := combobox.Items.Count;
if combobox.DropDownCount > DropDownCount then combobox.DropDownCount := DropDownCount;
Tab.Filter := '';
Tab.Filtered := false;
end;
Vielleicht hilft's weiter.
mfg
eddy