【结贴】[请求]自定义查找属性问题**

kcyjy

DataSetFZRXX.Active:=true;

  DataSetBMCL.BizFieldByName('CLR').LookupDef.kind:=  TLookupKind.lkDataValues;    //查找类型
  DataSetBMCL.BizFieldByName('CLR').LookupDef.ValidateKind   := TLookupValidateKind.vkMust;   //查找值范围


  DataSetBMCL.BizFieldByName('CLR').LookupDef.DataBase.URL:='Biz:\SYSTEM\SYSTEM.DATABASE';
  DataSetBMCL.BizFieldByName('CLR').LookupDef.SQL.Text := '';
('CLBM').AsString  :=DataSetFZRXX.FieldByName('KS').AsString ;
  DataSetBMCL.BizFieldByName('CLR').LookupDef.KeyField       := 'FPERSON' ;          //关键字段
  DataSetBMCL.BizFieldByName('CLR').LookupDef.DisplayField   := 'FDISPLAYNAME';  //显示字段
  DataSetBMCL.BizFieldByName('CLR').LookupDef.DropDownButton := True; //是否显示下拉

  with TSQLDataSet(DataSetBMCL) do
  begin
    DataSetBMCL.BizFieldByName('CLR').LookupDef.SQL.Text:= 'select FPERSON,FDISPLAYNAME FROM TORGSYSTEM where FDEPT=''jsjyys''  ';
    //'''+DataSetFZRXX.FieldByName('KS').AsString+'''';
  end;
  DataSetBMCL.LayoutChange;

使用中发现 FDEPT=''jsjyys''  条件不起作用，另外如果下拉只显示 显示字段怎么写

Akon

楼主,可以手工定义一个查找属性,然后到vcs中查看,他是怎么定义的,对照一下

kcyjy

看不出什么

gaihl

版本是多少？

kcyjy

ID = 'CLR'
    DisplayName = #22788#29702#20154
    DataType = dtString
    DataTypeAttribute.Size = 32
    EditStyleID = 'String'
    Alignment = taLeftJustify
    LookupDef.Kind = lkDataValues
    LookupDef.DataBase.Reference = 'SYSTEM'
    LookupDef.SQL.Strings = (
      
        'SELECT TORGSYSTEM.FPERSON, TORGSYSTEM.FDEPT, TORGSYSTEM.FDISPLAY' +
        'NAME'
      '  FROM TORGSYSTEM')
    LookupDef.DisplayField = 'FDISPLAYNAME'
    LookupDef.KeyField = 'FPERSON'
    LookupDef.Filter.Strings = (
      '(Expr2 = DataSet.CLBM) OR (Expr1 = DataSet.CLBM)')
    LookupDef.ViewID = 'GridView'
    LookupDef.ViewProperties.Strings = (
      'object _1: TGridViewDesigner'
      '  VisibleColumns.Strings = ('
      '    '#39'FDISPLAYNAME'#39')'
      '  Options = [goShowQuickCodeField]'
      'end')
    LookupDef.Options = [loDropDownButton]
    LookupDef.InnerSQLList.Expressions = <
      item
        Name = '[Default]'
        Expression.Text =
          'SELECT TORGSYSTEM.FPERSON, TORGSYSTEM.FDEPT, TORGSYSTEM.FDISPLAY' +
          'NAME'#13#10'  FROM TORGSYSTEM'
      end>
    LookupDef.InnerSQLList.Text =
      'SELECT TORGSYSTEM.FPERSON, TORGSYSTEM.FDEPT, TORGSYSTEM.FDISPLAY' +
      'NAME'#13#10'  FROM TORGSYSTEM'
    AutoFillDef.Trigger = [ftOnInsert, ftOnEdit, ftOnDataChange]
    IsRequired = True
  end

kcyjy

3.0.6.3068

kcyjy

在建模工具里 过滤跟 下拉只显示人员不显示id跟部门怎么写

kcyjy

顶

Akon

参考下方代码吧

  with TSQlDataSet(YWXX6.TYWXX6(InfoBroker1.Info).DataSetBZSJJ1).BizFieldByName('DJ') do
  begin
    LookupDef.Kind :=TLookUpKind.lkDataValues;
    LookupDef.DataBase.URL := 'Biz:\OPERATION\OPERATIONDB.DATABASE';
    LookupDef.SQL.Add(        'SELECT *'+
        '  FROM ASJB');
    LookupDef.DisplayField := 'ZD1';
    LookupDef.KeyField := 'ID';
    LookupDef.QuickCodeField := 'ZD1';  //快速编码字段
    LookupDef.ViewID := 'GridView';
    LookupDef.ViewProperties.Add(
      'object _1: TGridViewDesigner'+
      '  VisibleColumns.Strings = ('+
      '    '#39'ZD1'#39')'+
      '  Options = []'+
      'end');
    LookupDef.Options := [TLookupOption.loDropDownButton];

kcyjy

原来vcs里的是可以直接拿过来改改用的。 ok结贴