【结贴】还是代码修改字段查找属性的问题

xhong

版本3012，现在代码创建了数据集和字段，发现字段有些属性无效，为了便于测试，你们可以这样重现：
标准数据集，字段2和字段3，字段3先指定一下查找属性，然后用下面代码，发现这3句是有效果的：
   tempBizField.LookupDef.ViewProperties.Add('  VisibleColumns.Strings = (');
  tempBizField.LookupDef.ViewProperties.Add('  ''EAlias'')');
  tempBizField.LookupDef.ViewProperties.Add('  Options = []');
但是如果换成字段2，就发现所有列都显示了，为什么呢

procedure TJLST1.Button1Click(Sender: TObject);
var
  tempBizField: TBizField;
begin
  tempBizField := TBizDataSet(dsbMain.DataSet).FindBizField('ZD3');

  tempBizField.LookupDef.DataBase.RefID := 'XTSCGLXTSJK';
  tempBizField.LookupDef.Kind:=TLookupKind.lkDataValues;
  tempBizField.LookupDef.ValidateKind:=TLookupValidateKind.vkAutoAdd;

  tempBizField.LookupDef.SQL.Text:='select FID,EAlias from TDEPT where  EFenbaoCompany = 1 order by FSEQUENCE';
   tempBizField.LookupDef.KeyField:='FID';
  tempBizField.LookupDef.DisplayField:='EAlias';
  tempBizField.LookupDef.QuickCodeField:='EAlias';
  tempBizField.LookupDef.ViewProperties.Clear;
  tempBizField.LookupDef.ViewProperties.Add('object _1: TGridViewDesigner');
   tempBizField.LookupDef.ViewProperties.Add('  VisibleColumns.Strings = (');
  tempBizField.LookupDef.ViewProperties.Add('  ''EAlias'')');
  tempBizField.LookupDef.ViewProperties.Add('  Options = []');
  tempBizField.LookupDef.ViewProperties.Add('  End');

  TBizDataSet(dsbMain.DataSet).LayoutChange;
  dsbMain.DataSet.Close;
  dsbMain.DataSet.Open;
end;

xhong

如何了

shangxy

如果不指定字段3的查找属性直接指定字段2的查找属性会起作用么？

字段2有没有直接在字段上设置过超找属性？

xhong

呵呵，看来我没说明白：
字段2和字段3区别是：字段3已经指定过查找属性了
用上述代码可以正常的修改字段3的查找熟悉，但是不能修改（或叫指定）字段2的查找属性，而且不是完全不能，那3句不行其他的可以。

shangxy

在tempBizField.LookupDef.ViewProperties.Clear;
前面加一句：
tempBizField.LookupDef.ViewID := 'GridView' ;  
看看

xhong

雨真牛^_^结贴