function与select 的结合使用
function PPcode(name)if not isnull(name) then
select case name
set PpRs=conn.execute("select num,pinpai from [Pinpaibiao]") : Do While Not PpRs.Eof
case PpRs("num")
name=PpRs("pinpai")
PpRs.MoveNext : Loop : PpRs.close : set PpRs=nothing
end select
PPcode = name
end if
end function
