repeat combobox1.Items.Add(ado.FieldValues['ID']); ado.Next; until ado.Eof 其中:ID为数据表里的字段,ado为ADOQuery控件.