with me.明细子窗体.form
select case me.性质
case "进货"
.controls("类别").rowsource="Select distinct 类别 from 产品表 where 供应商='" & 供应商& "'"
case "出货"
.controls("类别").rowsource="Select
case "部门退回"
.controls("类别").rowsource="Select
case "退给供应商"
.controls("类别").rowsource="Select
end select
end with