查询出问题,,在线求解答...

dim ssql as string,str as string
select case me.贸易方式.value
    case "进料"
         str="mid(编号,1,1)='J'"
    case "来料"
         str="mid(编号,1,1)='R'"
    case else
         str=true
end select
ssql="select 编号 from 表名 where " & str
me.反原.RowSource=ssql
select case me.片材分类.value
    case "是"
         me.贸易方式.Locked=true
         me.反原.Locked=true
    case "否"
         me.贸易方式.Locked=false
         me.反原.Locked=false
end select