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

谢谢指教！具体怎么做的我学学？

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

点击浏览该文件:计算.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

还有你的“拔长后直径”列要由“表达式”转成“数据”列

再次修改了表头，研究了半天才搞清楚！我就不懂每行中的英文字母代表什么意思？如果我把每个表格都做好，能否合并成一个计算器一样的界面？谢谢！

 

Select Case e.DataCol.name
    Case "一次拔长_锻造比"
        If e.DataRow.IsNull("一次拔长_面积") = False Then
            Dim d As Double = e.DataRow("一次拔长_面积")
            e.DataRow("一次拔长_边长") = Math.Sqrt(d)
        Else
            e.DataRow("一次拔长_边长") = Nothing
        End If
End Select
Select Case e.DataCol.name
    Case "二次墩粗_锻造比"
        If e.DataRow.IsNull("二次墩粗_面积") = False Then
            Dim d As Double = e.DataRow("二次墩粗_面积")
            e.DataRow("二次墩粗_边长") = Math.Sqrt(d)
        Else
            e.DataRow("二次墩粗_边长") = Nothing
        End If
End Select
Select Case e.DataCol.name
    Case "二次拔长_锻造比"
        If e.DataRow.IsNull("二次拔长_面积") = False Then
            Dim d As Double = e.DataRow("二次拔长_面积")
            e.DataRow("二次拔长_边长") = Math.Sqrt(d)
        Else
            e.DataRow("二次拔长_边长") = Nothing
        End If

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

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

请教各位大大：Select Case e.DataCol.name是什么意思？

为什么有的行开头有一个e.，有的没有！没搞懂
在模拟运算时出现了问题：当前面的锻造比变动时后面的边长有时不随变动，但高度同步变动的只有每个锻造比都动一下边长才会同步变动，如何解决？谢谢！

e是表事件中用到的。

请问老师们:

     加了材料_高度、 材料_材料体积、一次拔长_高度等几列后在模拟运算时出现了问题：当前面的锻造比变动时后面的边长不随变动，但高度可以同步变动，增加一行时边长无数据，怎么回事？如何解决？谢谢！

这个问题可以太简单也许是太难!但对于新手来说总归是问题,所以不懂还是要请教的!