[结帖]TLookupCalcField.KeyField是否支持多关键字查找

北斗_Bob

复制资源如下：
  object FIELD_SBCWRK_BPBJFYZJ: TLookupCalcField
    ID = 'BPBJFYZJ'
    DisplayName = #22791#21697#22791#20214#36153#29992#24635#20215
    DataType = dtNumber
    DataTypeAttribute.Precision = 20
    DataTypeAttribute.Scale = 2
    EditStyleID = 'Number'
    Alignment = taRightJustify
    DisplayFormat = '#,0.00'
    KeyField = 'contract_id'
    LookupDef.Kind = lkDataValues
    LookupDef.DataBase.Reference = 'Biz:\OPERATION\OPERATIONDB.DATABASE'
    LookupDef.SQL.Strings = (
      
        'SELECT CONTRACT_MACHINE_PARTICULAR.CONTRACT_ID, isnull(sum(CONTR' +
        'ACT_MACHINE_PARTICULAR.TOTAL_VALUE), 0.00) as Total_Value, CONTR' +
        'ACT_MACHINE_PARTICULAR.JIZU_ID'
      '  FROM CONTRACT_MACHINE_PARTICULAR'
      
        '  WHERE CONTRACT_MACHINE_PARTICULAR.code_all like '#39'001002%'#39' and ' +
        'CONTRACT_MACHINE_PARTICULAR.CODE_PARENT = '#39'001002'#39
      
        '  GROUP BY CONTRACT_MACHINE_PARTICULAR.CONTRACT_ID, CONTRACT_MAC' +
        'HINE_PARTICULAR.JIZU_ID')
    LookupDef.DisplayField = 'Total_Value'
    LookupDef.KeyField = 'CONTRACT_ID'
    LookupDef.Filter.Strings = (
      
        '(CONTRACT_ID = DataSet.contract_id)  AND (JIZU_ID = DataSet.jizu' +
        '_unit)')
    LookupDef.ViewID = 'GridView'
    LookupDef.ViewProperties.Strings = (
      'object _1: TGridViewDesigner'
      '  VisibleColumns.Strings = ('
      '    '#39'Total_Value'#39')'
      '  Options = []'
      'end')
    LookupDef.Options = [loNoDropDown, loManualDropDown]
  end


我想知道 LookupDef.KeyField 是不是可以定成这样：    LookupDef.KeyField = 'CONTRACT_ID,JIZU_Unit'?

atiger

不支持

atiger

楼主还有问题吗？没有我结贴了