主题：代码问题

这段代码如何不动作
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

代码没问题的话,就是条件不成立,不会有别的理由.

你代码是放在何处的?上传文件看看?

dim a as datarow=e.datarow
If e.DataCol.Name = "xz" Then
    if a("xz")= "居民" then
        a("sf")=a("fl") * 2.5
        a("hj")=a("sf") + a("cl") - a("jm")
    End If
    if a("xz") ="企业" then
        a("sf")=a("fl") * 1.86
        a("hj")=a("sf") + a("cl") - a("jm")
    end if
End If

或用Select Case语句

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

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

dim a as datarow = e.datarow
If e.DataCol.Name = "xz" Then
    Select Case a("xz")
        Case "居民"
            a("sf") =a("fl") * 2.5
            a("hj") =a("sf") + a("cl") - a("jm")
        Case "企业"
            a("sf") =a("fl") * 1.86
            a("hj") =a("sf") + a("cl") - a("jm")
        Case Else
            a("sf") = Nothing
            a("hj") = Nothing
    End Select
End If