主题：[已解决] 根据当前列字符计算相关列

请教如图例，取费为列表项目，要求对应下拉列表字符计算管理费与水电费值，如取费为“审计价”管理费值＝[审定价]*[管理费率]，谢谢！

此主题相关图片如下：求助.jpg

我写的代码计算结果为零，帮助文件“自动输入的实现”看了几遍没有悟出，谢谢！

Dim dr As DataRow = e.DataRow
Dim ds As Double
Select Case e.DataCol.Name
    Case "管理费率" ,"水电费率" , "取费" ,"审定价", "合同金额", "决算价"
    If  dr("取费") = "'合同价'" Then
         ds = dr("合同金额")
    Else If dr("取费") = "'结算价'" Then
        ds = dr("决算价")
    Else If dr("取费") = "'审计价'" Then
        ds = dr("审定价")
    End If
    If dr.IsNull("取费") OrElse dr.IsNull("管理费率") OrElse dr.IsNull("水电费率") Then '如取费等列为空
        dr("管理费") = Nothing
        dr("水电费") = Nothing
    Else
        dr("管理费") = dr("管理费率") * ds
        dr("水电费") = dr("水电费率") * ds
       
    End If
End Select