请各位帮帮忙，刚学的

有张表bargain  
            成交日期  
          2002-4-5  
          2002-5-15  
          2002-4-5  
          2003-5-4  
          2003-5-17  
          2003-5-4  
          2004-5-15  
          2004-5-15  
          2004-6-8  
  我想将期中的年分组后插入combobox.item里  
  得到结果是combobox.item里有2002  
                                                        2003  
                                                        2004  
  我这写  
  var  
  d,t,s:string;  
  begin  
  with   datamodule3   do  
  begin  
  d:='select   year(成交日期)   as   年份　from   bargain   group   by   year(成交日期)   ';  
  bargainquery.close;  
  bargainquery.sql.clear;  
  bargainquery.sql.add(d);  
  bargainquery.open;  
   
  while   not   bargain   query.eof   do  
  t:=bargainquery.fieldbyname('年份').asstring;  
  combobox26.items.add(t)  
  bargainquery.next;  
  end;  
  end;  
  我在ondblclick里写双击就能实现  
  在onclick里写单击却没反应  
  我想点combobox的小三角就能有  
  不知该在那写这个事件 问题点数：20、回复次数：3Top

1 楼madyak（无天）回复于 2005-07-04 23:20:17 得分 7

在combobox的OnDropDown事件中处理Top

2 楼hellolongbin（一个人(自从扩充话题改版，再也不去灌水乐园了)）回复于 2005-07-05 08:41:35 得分 6

onchange事件Top

3 楼hhzqf1980（hh）回复于 2005-07-05 08:58:54 得分 7

OnDropDownTop

相关问题

• bargainquery
• combobox
• bargain
• 成交日期
• 事件
• items

• 帖主：swww
• madyak
• hellolongbin
• hhzqf1980

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载