dbcombobox 如何删除相同的项?

Question

for i:=0 to  adotable1.RecordCount-1 do
begin
dbcombobox1.Items.Add(adotable1.Fields.Fields[1].asstring);
adotable1.Next;如何将dbcombobox1的下拉列表相同的项目删除掉?
谢谢~~!

Answer 1

晕，怎么最近好多0分帖.删除combobox中重复的项目procedure TForm1.Button1Click(Sender: TObject);
var   
  i,j:integer;
  begin
      for i:=0 to self.combobox1.items.count-1 do
      begin
          for j:=i+1 to self.combobox1.items.count- 1 do
          begin
              if (self.combobox1.items[j]=self.combobox1.items[i])   then
                  self.combobox1.items.delete(j);
          end;
      end;
  end;

Answer 2

其实你在获取该字段的时候，在SQL里通过distinct关键字 就可以获取非重复行了，非要事后折腾啊

Answer 3

没怎么测试，应该没问题的。还是用Tquery代替Ttable
在SQL里使用distinct效率高点吧.你这样搞完全是擦屁股的做法，困了，明天再来看。

Answer 4

给你点sql,可以在adoquery中这样
select 不重复字段名 from table group by 不重得字段名