【搞定】代码创建的TBIZFIELD字段如何删除释放

jiangqd

用代码创建的TBIZFIELD字段,用BizFields.Remove  ,或  BizFields.Free 均不能实现,再次创建时会提示字段已经存在,创建代码如下:     
var
    lBizField: TBizField;
    lColumn: TDataGridColumn;
    Fldid,flddisplayname:string;
begin

    with Query1 do
    begin
      Close;
      CommandText:='select f.code fcode,B.CODE BCODE,B.ABBR TABBR,F.abbr fabbr '
                 +' from ledwaybasic.FinancialItems F,  '
                 +'(select *  from ledwaybasic.basicdata  where Type=''PTT'' and spec=''DS'') b '//单双面
                 +' order by B.CODE'  ;
      OPEN;
      first;
      while not eof do
      begin
         Fldid:=sysutils.trim(FieldByName('BCode').AsString)+'|'+sysutils.trim(FieldByName('FCode').AsString);
         flddisplayname:=sysutils.trim(FieldByName('TABBR').AsString)+'|'+sysutils.trim(FieldByName('FABBR').AsString);
         lBizField := TUserDataField.Create(DataSetTEST);
         lBizField.DataSet := DataSetTEST;      //指定字段所在的数据集
         lBizField.ID :=Fldid; //'GS';                            //设置字段ID
         lBizField.DataType := TDataType.dtFloat;          //设置字段类型
         //lBizField.Size :=20;                            //设置字段大小
         lBizField.DisplayName :=flddisplayname;// 'AA|公司';
         lColumn := TDataGridColumn(DataGrid1.CreateColumnByClassName('TDataGridColumn')); // 字符串表示列的类型，可以是'TDataGridColumn', 'TDataGridImageColumn','TDataGridMaskColumn'
         lcolumn.Name:='TDataGridColumn'+Fldid;
         lColumn.FieldName :=Fldid ;//'KF'; // 邦定GUID字段
     lColumn.BandIndex:=1;
         lColumn.Width:=60;
         lColumn.Alignment:=TAlignment.taRightJustify;
         lColumn.HeaderAlignment:=TAlignment.taCenter;
         next;
   end;
   end;
     DataSource1.DataSet.Open;

end;

wangys_yt

关注。也碰见过类似的问题，我是在UserDataSet上创建的字段，也是不能释放。据说只能通过释放数据集才能释放字段。唉，麻烦啊

zfang

用
DataSet.BizFieldByName('GS').Free;
DataSet.Refresh;
楼主试试看！
要注意DataGrid的column！

zfang

就是说要删除DataGrid的对应列
删除方式如下：
TDataGridColumn(DataGrid.ColumnByName('TDataGridColumn'+'GS')).Free;
DataGrid.Refresh;

jiangqd

楼上方法还是不行，不过奇怪的是删除后，FieldList还存在代码创建的字段，用FieldList.Delete无法删除，提示是只读属性。

zfang

不会阿，我在自定义数据集上测试过，是可以的！

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;

jiangqd

下班了，明天再试。

zfang

ok，记得反馈结果哦。

jiangqd

按七楼的方法可以实现删除字段，问题解决了，谢谢！可以结贴了。