DBLookupComboBox

Din Lookup table står og peger på den du har valgt, så du kan få fat i alle de andre felter på den valgte record med fieldbyname() og så bruge Insert eller append på den table du skal tilføje til

Og det skulle jo havde være et svar

Hej Martin tak for dit svar, men problemet har udviklet sig på følgende måde:

Jeg angiver følgende værdier til DBLookUpComboBox\'en

DataField  NavnHovedtabel
DataSource Tabel2
.
.
.
KeyField  Navn
ListField  Navn
ListSource Tabel1  (Hovedtabel)

Det mærkelige er at når jeg vælger en værdi i LookUpComboBoxen så låses hovedtabellen, sådan at forstå at jeg ikke længere kan skifte gelt

gelt = felt eller index i hovedtabellen

Det er fordi du bruger Hovedtablen som Lookup, men det er stadig sådan at når du har valgt noget i den combo, så kan du skrive Tabel1.FieldByName(<Feltnavn>).AsString, og få fat i de felter du har i din hovedtabel, MEN Husk en ComboLookup den \"Låser\" ListSourc\'en ellers kan den jo ikke sortere det også vidre, jeg bruger faktisk sjælendt en DBLookup. Måske er det fordi ListSourcen kun indeholder Feltet Navn.

/Martin

På hvilken måde bør det så laves således at jeg undgår det ireterende problem ?

Jeg er ikke helt sikker på jeg forstår dit proplem rigtigt, men jeg plejer at fylde en std combo med den tekst jeg skal bruge, og så gemme det extra jeg skal bruge i Object\'s på Items.

/Martin

Formentlig med følgende kode

while not Tabel1.Eof do begin
  DBComboBox.Items.Add(Table1.FieldByName(\'Navn\').AsString);
  Table1.Next;
end;

Men hvordan får jeg så lagt nr over i min tabel 2 ?

while not Tabel1.Eof do begin
  DBComboBox.Items.AddObjects(Table1.FieldByName(\'Navn\').AsString, TObject(Table1.FieldByName(\'Nr\').AsInteger));
  Table1.Next;
end;

På OnClick på comboboxen trækker du Id\'en ud sådan :

Integer(ComboBox.Items.Objects[ComboBox.ItemIndex]);

/Martin

PS. Husk at lave din ComboBox om til en Alm ComboBox og ikke en DBComboBox.

PSS. Min erfaring er at de DataAware componenter der er med til delphi ikke er skide gode, men undtagelse af DBGrid\'en den er god, resten klarer jeg med manuele updateringer ( data fra table til edit-controller og tilbage til table igen )

Samler du på Pointene ?
jeg har lige hævet til det dobbelte, du får dem om lidt.

Hvis jeg nu lidt senere i programmet skal skifte tabel 1 hen til det fundne index hvad gør jeg så ?

Jeg kunne i øvrigt godt tænke mig at lære din teknik med manuel opdatering

Min Teknik går ud på at jeg på evt. FormShow event\'en tager fat i den record jeg skal vise og så ellers bare FieldByName(), det skal dog lige siges jeg faktisk har lavet en Linker comp. så man designtime at lave connect til editcontroller også bare kalde nogle functioner på min linker.

Du kan søge på tabler med Locate functionen.

/Martin

Integer(ComboBox.Items.Objects[ComboBox.ItemIndex]);

Giver altid 0 som returværdi ?

Ikke hvis du gør sådan

ComboBox.Items.AddObjects(Table1.FieldByName(\'Navn\').AsString, TObject(Table1.FieldByName(\'Nr\').AsInteger));

Så burde den give dig den værdi du har sat ind. Husk det er AddObjects jeg bruger og ikke bare Add


/Martin

Når dette gøres
DBComboBoxLnkTilApp.Items.AddObject(TableAppDB.FieldByName(\'Name\').AsString,
    TObject(TableAppDB.FieldByName(\'Nr\').AsInteger));

Så springer begge tabeller til sidste element, kan dette undgåes ??

Du bruger Stadig DBCombo, prøv at lav den om til en alm ComboBox.

Hvis du ikke kan få det til at virke så pak det sammen med db og mail det til denne adr. martin@e-lind.dk

a\' takker :-)