select 实例

来源:互联网 发布:Windows icinga监控 编辑:程序博客网 时间:2024/05/20 05:23

select case memtype
  
    case "1" '个人

    case "16"'经纪人
     company=KS.S("company_jj")
              OfficeTel=KS.S("OfficeTel_jj")
     Fax=KS.S("Fax_jj")
     ZIP=KS.S("ZIP_jj")
     HomePage=KS.S("HomePage_jj")

    case "14","17" '地铺搜房易
     company=KS.S("company_sd")
              OfficeTel=KS.S("OfficeTel_sd")
     Fax=KS.S("Fax_sd")
     ZIP=KS.S("ZIP_sd")
     HomePage=KS.S("HomePage_sd")
     Sign=KS.S("Sign_sd") 


   end select