主题：代码计算

Select e.DataCol.name
    Case "长","宽","厚" ,"数量"
            If e.DataRow("单位") ="立方"  Then
                e.DataRow("小计") = e.DataRow("长") * e.DataRow("宽")*e.DataRow("厚")*0.000000001 * e.DataRow("数量")
            ElseIf e.DataRow("单位") ="平方"  Then
                e.DataRow("小计") = e.DataRow("长") * e.DataRow("宽")*0.000001*e.DataRow("数量")
            ElseIf e.DataRow("单位") ="四面套"  Then
                e.DataRow("小计") = (e.DataRow("长") *2 )+ (e.DataRow("宽") * 2)*0.001*e.DataRow("数量")
            ElseIf e.DataRow("单位") ="三面套"  Then
                e.DataRow("小计") = e.DataRow("长") + (e.DataRow("宽") * 2)*0.001*e.DataRow("数量")
            ElseIf e.DataRow("单位") = "件" Then
                e.DataRow("小计") = e.DataRow("单价")*e.DataRow("数量")
            ElseIf e.DataRow("单位") = "套" Then
                e.DataRow("小计") = e.DataRow("单价")*e.DataRow("数量")
            End If
End Select