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

此主题相关图片如下：求助.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

重置后结果还是为0值，表事件DataColChanged

我想是不是判断名写错，请老师修改，谢谢！

Dim dr As DataRow = e.DataRow
Dim ds As Double
Select Case e.DataCol.Name
    Case "管理费率" ,"水电费率" , "取费" ,"审定价", "合同金额", "决算价"
    If  dr("取费") = "\'合同价\'" Then      ‘这句合同价双引号内加单引号是否有错？但帮助文件表达式要求字符为单引号，如：“[取费]＝’审计价‘”写法在命令窗口计算结果为整条语句。
         ds = dr("合同金额")                \'ds值没有找到，
    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