主题：面积自动计算问题

当长和宽不为空时，单位选米，面积公式为长*宽，当单位选择码时，面积公式为长*宽*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

很多错误，而且非常的离谱。

直接将面积列的表达式设置为:

[长] * [宽] * iif([单位] = '米', 1, 0.914)

就行了。

设置的表达式通不过

连列的数据类型都错了，表达式当然通不过：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:面积问题.table

数据类型是一切的基础。