DBComboBox følge med

Tags:    delphi

procedure TForm1.DBComboBox1Change(Sender: TObject);

var
Bookmark: TBookmark;
begin


Bookmark := ADOTable2.GetBookmark;

try
adotable2.First;

While Not ADOTable2.Eof Do Begin
dbcombobox1.Items.Add(ADOTable2.FieldByName('id').Value);
ADOTable2.Next;
End;
finally
ADOTable2.GotoBookmark(Bookmark);


End;
end;


Jeg kæmper en vild og inderlig kamp med at få en DBComboBox til at følge med når man klikker på den.
At den man klikker på når "lemmen" falder ned også er den der vises. Og at de øvrige DBEdit bokse også skifter til det nummer som er valgt i DBComboBox.
Det er aldrig lykkes ?
Er det nogen sinde lykkes for nogle ?
Jeg har også forsøgt mig med noget SQL , men nej !

adodataset1.CommandText:= 'SELECT * FROM id WHERE ADOTable1.Recordset = :navn';
Heller ikke

Og i hvad for en evens skal den forøvrigt sidde ?

VH

tarsankode



1 svar postet i denne tråd vises herunder
0 indlæg har modtaget i alt 0 karma
Sorter efter stemmer Sorter efter dato
procedure TForm1.DBComboBox1Change(Sender: TObject);

var
Bookmark: TBookmark;
begin


Bookmark := ADOTable2.GetBookmark;

try
adotable2.First;

While Not ADOTable2.Eof Do Begin
dbcombobox1.Items.Add(ADOTable2.FieldByName('id').Value);
ADOTable2.Next;
End;
finally
ADOTable2.GotoBookmark(Bookmark);


End;
end;


Jeg kæmper en vild og inderlig kamp med at få en DBComboBox til at følge med når man klikker på den.
At den man klikker på når "lemmen" falder ned også er den der vises. Og at de øvrige DBEdit bokse også skifter til det nummer som er valgt i DBComboBox.
Det er aldrig lykkes ?
Er det nogen sinde lykkes for nogle ?
Jeg har også forsøgt mig med noget SQL , men nej !

adodataset1.CommandText:= 'SELECT * FROM id WHERE ADOTable1.Recordset = :navn';
Heller ikke

Og i hvad for en evens skal den forøvrigt sidde ?

VH

tarsankode


Nå, Javel ja. Det kan man ikke

tarsankode



t