主题：[求助]请教如何用公式直接实现30*20*10的计算？

if e.DataCol.Name = "长x宽x高"  or e.DataCol.Name = "数量"  or e.DataCol.Name = "比重" Then
    e.DataRow("重量") = eval(e.DataRow("长x宽x高") & "*" & e.DataRow("数量")  & "*" & e.DataRow("比重"))/1000000
End If

当然可以简写：

dim r as datarow = e.datarow

if e.DataCol.Name = "长x宽x高" Then
    r("体积") = eval(r("长x宽x高"))
End If

if e.DataCol.Name = "长x宽x高"  or e.DataCol.Name = "数量"  or e.DataCol.Name = "比重" Then
    r("重量") = eval(r("长x宽x高") & "*" & r("数量")  & "*" & r("比重"))/1000000
End If

Dim s As String = eval(e.DataRow("长宽高"),e.DataRow)

S类型？

      原来String的数字也可以参与计算，我怎么不知道，郁闷！