主题：面积自动计算问题

当长和宽不为空时，单位选米，面积公式为长*宽，当单位选择码时，面积公式为长*宽*0.914，一下代码错在哪里

 With Tables("试验表")
     Dim r As Row =.current
     If  r.IsNull("宽") Then 
         If r.Isnull("长") Then 
             Select Case r("单位")
                 Case "米"
                   r("面积").expression="[长]*[宽]"
                 Case "码"  
                    r("面积").expression="[长]*[宽]*0.914" 
               End Select
          End If
         Else r("面积")=""
      End If
End With

设置的表达式通不过