怎么分段呀！

Question

select case a
       case 1
        goto AppendRs
       case 2
        goto UpdateRs
end select 
:AppendRs
msgbox "新增"
：UpdateRS
msgbox "更新"怎么当a=1
他怎么两段都执行呀，我只想执行一段呀

Answer 1

select case a
       case 1
        goto AppendRs
       case 2
        goto UpdateRs
end select 
exit sub
AppendRs:
msgbox "新增"
exit sub
UpdateRS:
msgbox "更新"