如何将一个表中的某一个字段的所有记录值的放到一个ComboBox里去？(20分)

如表mytest有
ziduan1 ziduan2 ziduan3
xx
yy
zz
aa
bb
cc

一个ComboBox1
如何将mytest.ziduan1的所有记录添加到Combobox1里去？

加个ENTER事件，给个列子吧
procedure TForm1.ComboBox1Enter(Sender: TObject);
var
Qry: TQuery;
begin
begin
ComboBox1.Items.Clear;

Qry := TQuery.Create(nil);
Try
Qry.DatabaseName := 'STANDARD1';
Qry.SQL.Add('Select Distinct Ring ');
Qry.SQL.Add('from Trans');
Qry.Open;
if Not Qry.IsEmpty then
begin
Qry.First;
While Not Qry.Eof do
begin
ComboBox1.Items.Add(Qry.FieldByName('Ring').Asstring);
Qry.Next;
end;
end;
Finally
Qry.Close;
Qry.Free;
end;
end;
end;

感谢！太迅速了。

用TDBComboBox一句代码都不用写。

完全同意上面的回答,照着做一定没问题.

to 小人物：
好象不行。用DBComBox好象显示的是当前的记录，而不是所以的记录列表。