Readygo技术搜索引擎 网络搜索 efish 2008-1-17 2:00:27

从一个query里执行select语句后，选出多条记录，怎样将这多条记录的某个字段全加入到一个combox里去？

楼主simonqsm（）2003-08-05 23:31:39 在 Delphi / VCL组件开发及应用 提问

combox.item.add（"...."）,这是加一条，对于多个记录怎么控制？ 问题点数：20、回复次数：5Top

1 楼simonqsm（）回复于 2003-08-05 23:37:38 得分 0

补充一下，不想用lookupcombox！Top

2 楼HelpMeNow（混口飯吃）回复于 2003-08-05 23:38:56 得分 2

while   not   query.eof   do  
  begin  
      combox.item.add(Query.fieldByName("field").asstring);  
      Query.next;    
  end  
  Top

3 楼sulemon（苏檬）回复于 2003-08-06 00:03:09 得分 8

向一个combobox中添加item  
   
  combobox1.Items.clear;  
    with   qry   do  
    begin  
        close;  
        sql.Clear;  
        sql.add("select   *   from   table1   order   by   zd1");  
        open;  
        first;  
    end;  
    if   qry.RecordCount>0   then  
        combobox1.text:=qry.fields.asstring;  
    repeat  
        combobox1.Items.Add(qry.fields.asstring);  
    until   qry.findnext=false;  
  Top

4 楼nmqhzh（昨夜风）回复于 2003-08-06 02:15:38 得分 1

同意HelpMeNowTop

5 楼Little2000（rainy）回复于 2003-08-06 09:01:33 得分 9

combobox1.Items.clear;  
    with   ADOQuery1   do  
    begin  
          Close;  
          Clear;  
          SQL.Add("select   *   from   Table");  
          Open;  
      end;  
      if   AdoQuery1.RecordCount   >   0   then  
  begin  
  ADOQuery1.First;  
  while   not   ADOQuery1.Eof   do  
  begin  
          ComboBox1.Items.ADD(ADOQuery1.FieldByName(FieldName).AsString);  
          ADOQuery1.Next;  
  end;  
  end;  
  Top