Sorry, hab beim ersten Post verschrieben. Die Fehlermeldung kommt nicht bei den Columns sonder beim View:
Code:
ViewVorhanden := False;
for I := 0 to Self.ViewCount - 1 do
if Self.Views[I] is TcxGridBandedTableView then
if TcxGridBandedTableView(Self.Views[I]).Name = Self.Name + 'BandedTableView1' then
ViewVorhanden := True;
if not ViewVorhanden then begin
//Löschen aller Views
I := Self.ViewCount;
for J := 0 to Self.ViewCount - 1 do
Self.Views[0].Free;
//Erstellen des neuen BandedTableViews
NeuerView := Self.CreateView(TcxGridBandedTableView);
NeuerView.Name := Self.Name + 'BandedTableView1';
Self.ActiveLevel.GridView := TcxGridBandedTableView(NeuerView);
//Band und Columns Createn und Standardwerte setzen
StandardBandsCreaten(TcxGridBandedTableView(NeuerView));
StandardColumnsCreaten(TcxGridBandedTableView(NeuerView));
StandardWerteSetzen(TcxGridBandedTableView(NeuerView));
end; // End If