[搞定]关于DataGrid代码增加列的问题

sun4559

代码如下：
var s:TTreeListColumn;

s:=TTreeListColumn.Create(self);
s.caption:='联系人';
TKHLB(docview2.doc).DataGrid.AddColumn(sl;
TKHLB(docview2.doc).DataGrid.Columns[11].FieldName:='KHLXR';
为什么一执行SQL程序就自动退出？
把最后一句去掉就不出错了，但增加的列怎么和字段联起来？

jiahaiminghr

楼主，单步调试一下，看报什么错误！

zfang

//动态增加字段
procedure TSJWG1.Button6Click(Sender: TObject);
var
  lBizField : TBizField;
  lColumn: TDataGridColumn;
begin
  //动态增加列字段，并增加DataGrid列
  lBizField := TUserDataField.Create(nil);
  lBizField.DataSet := InfoBroker.Info.DataSets[0];//DataSetBrokerZDYSJJ1.DataSet;
  lBizField.ID :='GS';                            //设置字段ID
  lBizField.DataType := TDataType.dtFloat;          //设置字段类型
  lBizField.Size := 20;                            //设置字段大小
  lBizField.DisplayName := 'AA|公司';
  lColumn := TDataGridColumn(DataGrid.CreateColumnByClassName('TDataGridColumn'));
  // 字符串表示列的类型，可以是'TDataGridColumn', 'TDataGridImageColumn','TDataGridMaskColumn'
  lcolumn.Name:='TDataGridColumn'+'GS';
  lColumn.FieldName :='GS' ;//'KF'; // 邦定GUID字段
  Business.Forms.Dialogs.Showmessage('增加字段成功！');
end;

//动态删除刚才创建的字段
procedure TSJWG1.Button7Click(Sender: TObject);
var
  lBizField : TBizField;
  lColumn: TDataGridColumn;
begin
  //动态删除列字段，并删除DataGrid列
  lColumn := TDataGridColumn(DataGrid.ColumnByName('TDataGridColumn'+'GS'));
  lColumn.Free;
  DataGrid.Refresh;
  lBizField := InfoBroker.Info.DataSets[0].BizFieldByName('GS');
  lBizField.Free;
  InfoBroker.Info.DataSets[0].Refresh;
  Business.Forms.Dialogs.Showmessage('删除字段成功！');
end;

sun4559

谢谢！可以了。