raTRzComboBox

最新推荐文章于 2023-11-03 07:51:21 发布

aiyitan9175

最新推荐文章于 2023-11-03 07:51:21 发布

阅读量207

点赞数

原文链接：http://www.cnblogs.com/cnby/p/3995081.html

版权

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;