【结贴】关于修改数据集字段名的问题**

lisb

你把文档上的自动打开数据集属性（AutoOpenDataSet）去掉试试。

buckking

AutoOpenDataSet 这个属性在哪里设阿，用代码设会抱错啊

buckking

DocViewRBBXX_BGWD1.Doc.Close;
DocViewRBBXX_BGWD1.Doc.AutoOpenDataSet:=false;
DocViewRBBXX_BGWD1.Doc.Open(TDocMode.dmEdit,DocViewRBBXX_BGWD1);
代码的设置方法，写在窗体Create事件

buckking

没有什么学效果阿

buckking

把代码改这样以后才可以，结帖吧
procedure TMainForm.BizFormCreate(Sender: TObject);
begin
  DocViewRBBXX_BGWD1.Doc.Close;
  if DataSetBroker1.DataSet.Active then DataSetBroker1.DataSet.Close;
  DocViewRBBXX_BGWD1.Doc.AutoOpenDataSet:=false;
  TPivotDataSet(DataSetBroker1.DataSet).OnCreateFieldName := DataSetTSSJJ1CreateFieldName();
  DocViewRBBXX_BGWD1.Doc.Open(TDocMode.dmEdit,DocViewRBBXX_BGWD1);
  if not DataSetBroker1.DataSet.Active then DataSetBroker1.DataSet.open;
end;

procedure TMainForm.DataSetTSSJJ1CreateFieldName(AKind: TPivotFieldKind; AOriginFields: TOriginFields;
  const AColumnField, AColumnDisplay: string; var AFieldName, ADisplayName: string);
begin
  //if AKind = TPivotFieldKind.pfkColField then
  ADisplayName := 'ss';
end;

lisb

设置AutoOpenDataSet不用写代码，就在文档的属性上设置，结贴了。