创建一个暂时的checkbox字段

创建一个临时的checkbox字段。
clientdataset是这样创建的，ok

  var
    NewField:TField;
    i:Integer;
  begin
    with cds do
    begin
      close;

      //创建checkbox字段
      for i:=0 to Fields.Count-1 do
        Fields[0].Free;

      (MainDataModule.RORemoteService as IFormationApplyService).GetPerson(Aunitid,Atype,dt);
      cds.Data := dt;

      Close;

      for i:=0 to cds.FieldDefs.Count-1 do
        FieldDefs.Items[i].CreateField(cds);
      NewField:=TBooleanField.Create(cds);
      NewField.FieldName := 'checkbox';
      NewField.FieldKind:= fkInternalCalc;
      NewField.DataSet:=cds;
      Open;
    end;
  end;

但现在用的是unidac了，也这样创建，但报错说‘Field ‘checkbox’not found’，请问uniquery该如何创建？
[解决办法]
创建计算字段看看

查看更多 下一篇