dim price as interger=combo1.seleteditem '把选中的值存入price..再用sql语句="select 单价 from 货品 where 货品名='price'然后再把值赋给text控件。。大概是这样，太久没有用vb了，我给的代码不完整或者有错误，你自己修改。。
用change事件啊
