Select Case e.DataCol.Name

    Case "用量", "单价"，"比率"

        If e.DataRow.IsNull("比率") Then

            If e.DataRow.IsNull("用量") Or e.DataRow.IsNull("单价") Then

                e.DataRow("合价") = Nothing

            Else

                e.DataRow("合价") = e.DataRow("用量") * e.DataRow("单价")

            End If

        Else

            Dim V1 As Double

            Dim V2 As Double

            Dim V3 As Double

            Dim V4 As Double

            Dim V5 As Double

            Dim dr As DataRow

            If dr ("项目构成") = "直接费" Then

                 V1 = dr ("合价")     

‘V1就是上表中的648.69

            Else If dr ("项目构成") = "间接费" Then

                 V2 = dr ("合价")     

‘V2 就是上表中的29.19

            Else If dr ("项目构成") = "利润" Then

                 V3 = dr ("合价") = ( V1 + V2) * dr ("比率")  

‘V3 就是上表中的33.89  计算过程为：（648.69+29.19）*5%=33.89

            Else If dr ("项目构成") = "税金" Then

                 V4 = dr("合价") = ( V1 + V2 + V3) * dr ("比率") 

‘V4 就是上表中的78.30  计算过程为：（648.69+29.19+33.89）*11%=78.29

            Else If dr ("项目构成") = "平米造价" Then

                 V5 = dr ("合价") = V1 + V2 + V3 + V4    

‘V4 就是上表中的790.07  计算过程为：648.69+29.19+33.89+78.29=790.06

            End If

        End If

End Select

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

点击浏览该文件:关于折叠表数据混合计算得问题.zip

请专家老师结合压缩包里的Word文档问题描述和测试文件给修改一下代码，实现所要的目的   谢谢老师