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

工作中要用到长方体或圆形计算体积的问题，

EXCEL中我用EVALUATE函数来计算，很方便。

在FOXTABLE中，请教如何用公式直接实现30*20*10的计算？

先感谢哈




此主题相关图片如下：kkk.jpg

感谢，大家十一国庆愉快！！

'DataColChanged事件代码

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

谢谢czy兄，

再次请教
如果要计算 重量=长*宽*高*数量*比重/1000000，应该怎么写？



此主题相关图片如下：llll.jpg

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)
e.DataRow("重量") = s*e.DataRow("数量")*e.DataRow("比重")/1000000

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

S类型？

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

咱们论坛热心人真多，谢谢楼上各位，

我来试试哈，不懂再问，

试了一下，上面的几种方法都行的，谢谢

程版的方法用的是基本功，

Y版的方法更简洁、清灵，

都是好老师！