『结】查找属性动态设置

weirongjia

我动态设置的查找属性如下：
  if (wzmc=nil) or (wzmc='') then
  begin
    with TSQLDataSet(DataSetWZGLCS).BizFieldByName('wzmc') do
    begin
      LookupDef.Kind :=TLookUpKind.lkDataValues;                               //定义查找类型
      LookupDef.DataBase.URL := 'Biz:KJTWZGLXTWZGLSJK.DATABASE';            // 定义数据库
      LookupDef.SQL.Text:= 'select wzmc,wzjx from wzxxb where wzmc is not null and wzjx='''+wzjx+'''';  //查找数据表
      LookupDef.DisplayField := 'wzmc';         //显示字段
      LookupDef.KeyField := 'wzjx';                 //关键字
      LookupDef.QuickCodeField := 'wzjx';  //快速编码字段
      LookupDef.ViewID := 'GridView';    //定义显示视图(如：标准、编码树)
      LookupDef.ViewProperties.Clear;
      LookupDef.ViewProperties.Add(         //视图各类属性
        'object _1: TGridViewDesigner'+
        '  VisibleColumns.Strings = ('+
        '    '#39'wzmc'#39')'+
        '  Options = []'+
        'end');
      LookupDef.Options := [TLookupOption.loDropDownButton]; //表现(如：下拉，自动下拉，显示下拉按钮)
    end;
    DataSetWZGLCS.LayoutChange;
  end;


我如何添加查找属性里面的：

zfang

手动设置一下查找属性的相关属性，然后把数据集拷贝到记事本中，就会有具体的代码参考写法。

weirongjia

好的
谢谢了  结贴吧