专家老师好，我在折叠表中关于折叠行数据参与运算中遇到问题，请老师看看代码问题出在那儿：

问题  ：折叠表隐框幕墙单价分析表，明框幕墙单价分析表中（其表的结构形式固定，计算方式固定） 

以下面的隐框幕墙单价分析表为例进行问题说明：（如下表） 通过代码进行了相关运算

但是编译代码也没报错，就是程序过程中报错，不显示运行结果 没有达到预定的结果

    最终目的：能根据预先设定代码 在合价列中进行相关运算，得的相应的数据值   后附事件代码，请专家老师调一下代码，以便实现所需的目的  见测试文件                                                          

为此我在表事件 DataColChangde事件中写入如下代码后，请老师看看问题出在哪儿，请老师赐教

Select Case e.DataCol.Name

    Case "用量", "单价"

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

            e.DataRow("合价") = Nothing

        Else

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

        End If

    Case "项目构成"，"科目编码"，"比率系数"

        Dim V0 As Double

        Dim V1 As Double

        Dim V2 As Double

        Dim V3 As Double

        Dim V4 As Double

        Dim dr As DataRow

        \'定义变量V1

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

            V1 = dr ("合价")

        End If

        \'定义变量V0

        If dr ("科目编码") = "直接费" And dr("项目构成") = "材料费" Then

            V0 = dr ("合价")

        End If

        \'定义变量V2

        If dr ("科目编码") = dr("项目构成") <> "间接费" Then

            V2 = dr ("合价")

        End If

        \'定义机械费运算代码

        If dr ("科目编码") = "机械费" Then

            dr ("合价") = V0 * dr ("比率系数")

        End If

        \'定义间接费运算代码

        If dr ("科目编码") = "间接费" And dr("项目构成") <> "间接费" Then

            dr ("合价") = V1 * dr ("比率系数")

        End If

        \'定义变量V3  及利润运算代码     

        If dr ("科目编码") = dr ("项目构成") = "利润" Then     

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

        End If

        \'定义变量V4  及税金运算代码     

        If dr ("科目编码") = dr ("项目构成") = "税金" Then

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

        End If

        \'平米单价运算代码            

        If dr ("科目编码") = dr ("项目构成") = "平米造价" Then

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

        End If

End Select

最终目的：能根据上面的代码 在不同行的合价单元格得出正确的数值                    

请老师调写一下上面代码，以实现所需功能    详测试文件

谢谢老师，祝老师幸福安康 !  万事如意 !   刘效功敬祝