让Combobox组件中列出数据库中一个表中的某一列字段值，且此字段值不能重复

ADOconnction->ADOTable连接正常 问题点数：20、回复次数：4Top

1 楼li_zhifu（东北人）回复于 2002-03-19 14:27:27 得分 20

ComboBox1.Items.Clear;  
  with   TADOQuery.Create(Self)   do  
  begin  
      ConnectionString:=ADOTable1.ConnectionString;  
      SQL.Add('Select   Distinct   字段名   From   表名');  
      Active:=True;  
      While   Not   Eof   do  
      begin  
          ComboBox1.Items.Add(Fields[0].AsString);  
          Next;  
      End;  
      Free;  
  end;Top

2 楼cobi（我是小新）回复于 2002-03-19 14:46:27 得分 0

楼上的写法无误Top

3 楼CeleronII（抽烟的鱼）回复于 2002-03-19 14:58:55 得分 0

同意一楼的Top

4 楼pingguo（e网情深）回复于 2002-03-19 15:12:07 得分 0

同意li_zhifu(东北人)。Top

相关问题

• 字段
• combobox
• 表
• adotable
• connectionstring
• items
• add

• 帖主：jiseng
• li_zhifu

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