with DM do   begin     adoqryTmp.Close;     adoqryTmp.SQL.Text :=‘select * from 表名 where kslbie=1 and id in(‘ + yfids +‘)‘;     adoqryTmp.Open;     while not adoqryTmp.Eof do     begin       yfcbb.AddItemValue(adoqryTmp.fieldbyname(‘mcheng‘).AsString,adoqryTmp.fieldbyname(‘id‘).AsString);       adoqryTmp.Next;     end;     if yfcbb.Count > 0 then yfcbb.ItemIndex:= 0;     if defaultyfid <> ‘0‘ then yfcbb.Value:= defaultyfid;   end;