不知你用的哪种数据库连接控件,在此用ado作例子
dim cn as new adodb.connection
dim rs as new adodb.recordset
假定你已连接成功
在cboSaledept的click加入
cboSaler.clear
selmanage=cbosaledept.list(cbosaledept.listindex)
sql="select saler from table where saledept=salmanage"
set rs=cn.execute(sql)
do until rs.eof
cbosaler.additem rs!saler
rs.movenext
loop