不用钻牛角尖吧
dim Vcklb as string
Vclb=tables("出库单").current("出库类别")
Select case Vcklb
case "产品出货"
代码1
case "生产领料“
代码2
end select
加好友 
发短信
Post By：2012/9/22 10:55:00 [显示全部帖子]
