Combobox1.Enabled:= True;
ADOTable1.Active:= False;
ADOTable1.TableName:= 'GOODS_INFO';
ADOTable1.Active:= True;
ComboBox1.Clear;
while not ADOTable1.Eof do
begin
ComboBox1.Items.Add(ADOTable1.FieldValues['Goods_id'] + ' || '
+ ADOTable1.FieldValues['Goods_name']);
StrList_Goods_id[i] := ADOTable1.FieldValues['Goods_id'];
i := i + 1;
ADOTable1.Next;
end;
你再改改就行了
