DBgrid-Sortierung

[Sharky]

Zitat von Hansa:

Code:

DBGrid1.Column.Add;

das wird compiliert (laut Hilfe ist die Deklaration: function Add: TColumn Nur was wird wo geadded? Vor allem aber: wenn ich etwas hinzufügen kann, dann muß ich es auch wieder wegkriegen.

Hai Hansa,

hier mal etwas Code. Du brauchst:

1 x Button
1 x Query
2 x ComboBox

Delphi-Quellcode:

procedure TForm1.ComboBox1Click(Sender: TObject);  //Feld zum Grid zufügen.
var
 spalte   : TColumn;
begin
 spalte := RxDBGrid1.Columns.Add;
 spalte.FieldName := ComboBox1.Text;
 ComboBox2.Items.Add (ComboBox1.Text);  // In die C-Box zum löschen der Spalte eintragen.
end;

{****************************************************}

procedure TForm1.ComboBox2Click(Sender: TObject);  //Feld aus dem Grid löschen
begin
 RxDBGrid1.Columns.Delete (ComboBox2.ItemIndex);
 ComboBox2.Items.Delete (ComboBox2.ItemIndex);
end;

{****************************************************}

procedure TForm1.Button1Click(Sender: TObject); //Felder der Tabelle in ComboBox.
begin
 ComboBox1.Clear;
 ADOQuery1.GetFieldNames(ComboBox1.Items);
end;

ACHTUNG: Wenn einem Grid keine Spalten zugewiesen wurden werden immer alle Spalten der Tabelle angezeigt

Ich hoffe das hilft dir so.