主题：代码问题

这段代码如何不动作
dim a as datarow=e.datarow
dim b as String="居民"
dim c as String="企业"
if a("xz")=b then
   a("sf")=a("fl") * 2.5
   a("hj")=a("sf") + a("cl") - a("jm")
  if a("xz")=c then
   a("sf")=a("fl") * 1.86
   a("hj")=a("sf") + a("cl") - a("jm")
   end if
end if

谢谢大家，4楼的已搞定，看来少了个判断

请问4楼，用Select Case语句 该怎样写呢