【结贴】[请求]query查出的数据设置查找属性的问题!!!!!

lity

procedure TMAINFORM.FilterStr(Atype: integer);
var
  lstr: TBizField;
  Query1: TSQLDataSet;
begin
     try
     Query1:=TSQLDataSet.Create(Self);
     Query1.Database.URL :='Biz:OPERATIONSPACEOPERATIONDB.DATABASE';
     Query1.Close;
     Query1.SQL.Text := ' SELECT FMZ 民族, Count(1) as 人数 '+
                          ' FROM THR_YGJBXX WHERE THR_YGJBXX.FYGLB = '+Sysutils.IntToStr(AType)+' GROUP BY FMZ ORDER BY 人数 desc';
THR_YGJBXX.FYGLB = '+Sysutils.IntToStr(AType)+' GROUP BY FMZ ORDER BY 人数 desc';
     Query1.Open;
     lstr := Query1.FindBizField('FMZ');
     lstr.LookupDef.Kind := TLookupKind.lkDataValues;///////报错位置
     lstr.LookupDef.ValidateKind := TLookupValidateKind.vkMust;
     lstr.LookupDef.SQL.Text := ' SELECT FCODE, FCONTENT '+
                                ' FROM TOA_COMMONCODE WHERE FSCOPE = 民族 and '+
                                ' FSTOPFLAG = 0 ORDER BY FCODE DESC ';
     lstr.LookupDef.KeyField := 'FCODE';
     lstr.LookupDef.DisplayField := 'FCONTENT';
   //  lstr.LookupDef.DropDownButton := True;
   //  GetLookupData('fmz').Refresh ;
     tsqldataset(query1).LayoutChange;
     finally
       Query1.Free;
     end;

说明:用Query查出的数据:民族是存的编码,他的查找在通用编码表里,我现在想设置他的查找属性,可是报错,不知道哪的问题,请帮忙看看!谢谢.下面是报错的图

atiger

查找属性是平台特有的，只能用平台的数据集，例如标准数据集，不能用query

lity

那我用QUERY,查出的数据,需要设置查找属性怎么办??民族现在显示出来的都是编码^^^^^^

anla

你可以关联查询代码表，把名称查出来不就行了？

shangxy

有道理。

lity

谢谢拉!搞定,揭贴!!!