为ComboBox赋值问题(50分)

[red]
from1 中有2个ComboBox
ComboBox1 对应 供应商表 （供应商编号，供应商名称）
供应商名称[black][/black]
dm.ADO_provider.Open;
(ADO_provider为ADOTable)
while not dm.ADO_provider.Eofdo
begin
cfrm_caigoudan.ComboBox1.Items.Add(dm.ADO_provider.FieldByName('CompanyName').AsString);
dm.ADO_provider.Next;
end;

ComboBox2 对应 商品表（商品编号，商品名称，供应商名称）
怎样为ComboBox2 赋值的时候显示出来的信息是ComboBox1对应的那个供应商的商品？
[red][/red]

根据 ComboBox1的onchange事件 ，再调用查询去取ComboBox1对应的那个供应商的商品

楼上正解

调用ComboBox1的onchange事件
procedure TForm1.ComboBox2Change(Sender: TObject);
begin
dm.ADO_provider.Filtered := False;
dm.ADO_provider.Filter := Format('CompanyName = ''%s'' ',[ComboBox2.Items[ComboBox2.ItemIndex]]);
dm.ADO_provider.Filtered := True;

dm.ADO_provider.First;
while not dm.ADO_provider.Eofdo
begin
cfrm_caigoudan.ComboBox1.Items.Add(dm.ADO_provider.fieldbyname('CompanyName').AsString);
dm.ADO_provider.Next;
end;
cfrm_caigoudan.ComboBox1.ItemIndex := 0;
end;

谢谢各位了！小弟分有限，但真的感谢你们的帮助