将数据库中某一字段添加到combobox中去。不希望有重复的，并且不希望将空记录添加上去。怎么办呢？

Question

我一添加连空白也加了上去。

Answer 1

先将字段取出来，放到一个字符串数组中，再去掉重复和空白的，然后添加到ComboBox中
^_^

Answer 2

用SQL语句查处数据来，如SQL语句
var
  SQLs: string
begin
   SQLs := 'SELECT DISTINCT field1 FROM Table1 WHERE Field1 IS NOT NULL AND Field1 <> ''''''';
   combobox.Item.Clear;
   with ADOQery1 do
   begin
     SQL.Clear;
     SQL.Add(SQLs);
     Open;
     while not Eof do
       if Trim(FieldByName(Field1').AsString) <> nil then
         combobox.Item.Add(FieldByName(Field1').AsString);
     Next;
   end;
没有测试过，你自己看看了

Answer 3

借楼上兄弟代码一用 ^_^
combobox.Item.Clear;
with ADOQery1 do
begin
  SQL.Clear;
  SQL.Add(SQLs);
  Open;
  while not Eof do
  if (Trim(FieldByName(Field1').AsString) <> '') and
      {不为空}
     (ComboBox1.Items.IndexOf(Trim(FieldByName(Field1').AsString)=-1) 
      {无重复}
  then
     combobox1.Item.Add(FieldByName(Field1').AsString);
  Next;
end;

Answer 4

http://dev.csdn.net/article/46/46054.shtm