raTRzComboBox

1. 属性： ItemIndex  对设置当前为 以索引0,1,2 对应 的value值

2. AddItemValue（显示客户看，代码内部值）;

 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;