【结】如何修改数据集字段的显示名称

xhong · 发表于 2010-4-28 15:57:23

创建代码如下，此时对DisplayName 的复制是OK生效的
  for I := 0 to AFieldCount - 1 do
  begin
lField := TUserDataField.Create(FUserDataSet);
lField.DataSet := FUserDataSet;
lField.ID := 'TempID' + SysUtils.IntToStr(I);
lField.DisplayName := 'TempDisplayName'+ SysUtils.IntToStr(I);
lField.DataType := TDataType.dtString;
lField.Size := 32;
lField.Alignment := TAlignment.taRightJustify;
  end;

当需要动态再修改时候，就不管用了，求解，代码如下：
  for I := 0 to FUserDataSet.FieldCount - 1 do
TUserDataField(FUserDataSet.Fields[I]).DisplayName := FUserDataSet.Fields[I].AsString;

shangxy · 发表于 2010-4-28 16:25:50

调用一下docview的RefreshDoc方法

xhong · 发表于 2010-4-28 16:36:40

我这个没用到信息和文档，直接代码创建的数据集和字段，最后再连到一个缺省的DataGrid上的，再给看看呵呵

shangxy · 发表于 2010-4-28 16:40:57

那就重新指定一下datagrid.datasource

xhong · 发表于 2010-4-28 16:51:12

呵呵你仔细看我三楼，我是把对数据集的这些操作都做完才连DataGrid的
现在问题主要是第一次创建字段时候改显示名称管用，再后来改就不生效了呢

shangxy · 发表于 2010-4-29 08:40:35

如果一个datagrid已经连接到一个数据源以后，在想修改datagrid字段的显示名称，那么修改后需要刷新一下datagrid所在的docview或者重新设置一下datasource属性

xhong · 发表于 2010-4-29 09:34:56

你仔细看我三楼，我是把对数据集的这些操作都做完才连DataGrid的

我已经反复试了一天了，麻烦请试一下呵呵

shangxy · 发表于 2010-4-29 09:40:52

DataGrid1.DataSource :=nil;
TSQLDataSet(DataSetBroker1.DataSet).BizFieldByName('zd2').DisplayName :='abc';
DataGrid1.DataSource := DataSetBroker1;

这个就是我测试代码，可以看到我修改的字段名

xhong · 发表于 2010-4-29 10:20:10

搞定了！BizFieldByName('zd2').DisplayName可以，我先前用TUserDataField(FUserDataSet.Fields[I]).DisplayName 第一次管用，再调用就不管用了，奇怪

		自动登录	找回密码
密码			立即注册