Select Case e.DataCol.Name
Case "再墩粗_长" ,"再墩粗_宽"
Dim l As Double
Dim w As Double
l = e.DataRow("再墩粗_长")
w = e.DataRow("再墩粗_宽")
e.DataRow("再墩粗_面积") = l * w
Case "再墩粗_直径"
Dim d As Double
d = e.DataRow("再墩粗_直径")
e.DataRow("再墩粗_面积") = d / 2 * d / 2 * 3.14
End Select