主题：请问老师：已知圆面积求直径，怎么实现？谢谢！

表达式好象没有开平方的函数,我用代码实现的

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

点击浏览该文件:计算(1).table

表属性－表事件－datacolchanged事件中加入下列代码：

Select Case e.DataCol.name
    Case "二次锻造比"
        If e.DataRow.IsNull("拔长后面积") = False Then
            Dim d As Double = e.DataRow("拔长后面积") / 3.14
            e.DataRow("拔长后直径") = Math.Sqrt(d) * 2
        Else
            e.DataRow("拔长后直径") = Nothing
        End If
End Select