代码修改查找属性 怎么不起作用

燕七

with TSQLDataSet(dsbCollect.DataSet) do
      begin
        BizFieldByName('fsort').LookupDef.SQL.Text := 'SELECT distinct  uservalue7 ,VALUE2 displayname,recno '+
          ' FROM JC_BASICDATA A, JC_BASDATASUP B WHERE A.SORT = B.SORT and A.ACC = B.ACC and A.ID=B.ID and '+
          ' A.SORT = ''PSCOLSORT'' and A.ACC = &[Biz:\WL\QJCSZ.PARAMGROUP\GSBH.Param] and B.PERID = &[Biz:\SYSTEM\ORGPARAMS.PARAMGROUP\OperatorID.Param] '+
          ' and A.uservalue8=' + QuotedStr(TXPM_PBConstLib.GetWorkCenter_Prod);
        GetLookupData('fsort').Refresh;
        TSQLDataSet(dsbCollect.DataSet).LayoutChange;
        Close;
        Open;
      end;