一、用功能更强些的datacombo来实现。
1、首先在“工程”中把datacomobo和adodc两个高级控件添加到工具箱中。
2、然后在form_load()事件中书写代码：
adodc1.connectionstring="PROVIDER=MSDASQL;driver={SQL Server};server=ip;uid=sa;pwd=;database=商品数据库"
adodc1.recordset="select * from 商品"
datacombo1.listfield="xh"
datacomob1.boundlumn="bm"
3、
在datacombo1_click()事件中书写代码：
datacombo1.text=datacombo1.boundtext

二、
在datagrid控件中，将要实现下拉列表的列的button属性设置为true：
代码如下：
datagrid1.columns(0).botton=true