主题：请狐狸老师帮我看看,那里出错？

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