建议
procedure OnTable1Open(sender as tobject)
var x :integer;
begin
if table1.recordcount=0 then exit;
combobox1.items.clear;
for x:=1 to table1.recordcocunt do
begin
combobox1.items.add(table1.fieldbyname('fieldname').asstring);
table1.next ;
end;
table1.first;
end;
