【搞定】如何代码实现：新增DataTreeList控件的列？**

qwermsn

如题，请教下。

我试着写了如下代码，编译不会出错，但运行的时候就出错了。

var lColumn: TDataTreeListColumn;
      lBelongPosition:String;
.....................
...........
lColumn:=TdataTreeListColumn.Create(nil);
lColumn.Name:='TDataTreeListColumn'+sysUtils.IntToStr(n);
lColumn.FieldName:=lBelongPosition;
lColumn.Caption:=lBelongPosition;
lColumn.BandIndex:=1;
lColumn.Width:=40;
lColumn.Alignment:=TAlignment.taCenter;
lColumn.HeaderAlignment:=TAlignment.taCenter;
DataTreeList1.AddColumn(lColumn);
....

最后一行ADD的时候就报错ist out of ....

lisb

lColumn.BandIndex:=1;
改成lColumn.BandIndex:=0;

qwermsn

倒塌。。原来是那里写错了。。
谢谢！
可以结贴拉。