raTRzComboBox

 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;