DBLookupCombobx -> den ausgewählten Eintrag später nicht mehr verwenden können

[maxi]

Hi,

danke für ihre antwort. Ich habe versucht es an meinem Programm anzuwenden, ich scheitere aber schon an den SQL-Anweisungen.. da ich noch nicht viel damit zu tun hatte. <br>
Ich habe die DBCombobox so gefüllt <br><br>
Tabelle.first;<br>
repeat<br>
DBCombobox1.Items.add(tabelle.fieldbyname('feld'). Asstring);<br>
Tabelle.next;<br>
until Tabelle.eof<br>

Kann ich nach dieser Anweisung den Eintrag abblenden?

mfg
max

[Andreas Kosch]

Hallo,

das folgende Beispielprojekt demonstriert, wie nach jedem Speichern einer Datensatzänderung der aktuell verwendete TDBComboBox-Wert aus der Liste entfernt wird. Erst dann, wenn der Button Init wieder angeklickt wird, füllt sich die TDBComboBox-Instanz neu mit allen Werten aus der Tabelle:
<pre>
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, DBTables, Grids, DBGrids, Db, ExtCtrls, DBCtrls;

type
TForm1 = class(TForm)
Database1: TDatabase;
Table1: TTable;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Table1ID: TAutoIncField;
Table1Wert: TStringField;
DBComboBox1: TDBComboBox;
DBNavigator1: TDBNavigator;
ButtonInit: TButton;
procedure ButtonInitClick(Sender: TObject);
procedure Table1AfterPost(DataSet: TDataSet);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ButtonInitClick(Sender: TObject);
var
sBM : TBookmarkStr;
begin
DBComboBox1.Items.Clear;
with Table1 do
begin
sBM := Table1.Bookmark;
First;
while not EOF do
begin
DBComboBox1.Items.Add(Table1Wert.Value);
Next;
end;
Table1.Bookmark := sBM;
end;
end;

procedure TForm1.Table1AfterPost(DataSet: TDataSet);
begin
DBComboBox1.Items.Delete(DBComboBox1.ItemIndex);
end;

end.
</pre&gt

[maxi]

Danke

max