起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 279|回复: 5

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

[复制链接]
发表于 2010-3-10 18:08:44 | 显示全部楼层 |阅读模式
版本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;
回复

使用道具 举报

 楼主| 发表于 2010-3-11 13:35:17 | 显示全部楼层
如何了
回复 支持 反对

使用道具 举报

发表于 2010-3-11 13:46:52 | 显示全部楼层
如果不指定字段3的查找属性直接指定字段2的查找属性会起作用么?

字段2有没有直接在字段上设置过超找属性?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-11 13:58:03 | 显示全部楼层
呵呵,看来我没说明白:
字段2和字段3区别是:字段3已经指定过查找属性了
用上述代码可以正常的修改字段3的查找熟悉,但是不能修改(或叫指定)字段2的查找属性,而且不是完全不能,那3句不行其他的可以。
回复 支持 反对

使用道具 举报

发表于 2010-3-11 14:30:50 | 显示全部楼层
在tempBizField.LookupDef.ViewProperties.Clear;
前面加一句:
tempBizField.LookupDef.ViewID := 'GridView' ;  
看看
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-11 14:43:38 | 显示全部楼层
雨真牛^_^结贴
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-10 23:20 , Processed in 0.038085 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表