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

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

 

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

 

单引号去掉   dr("取费") = "结算价"

dr("取费") = "结算价"  昨晚琢磨一晚，没有单引号提示结算价没有定义，现在试了是不用单引号能计算结果，谢谢大神，谢谢！

不会的. 就是一个字符串,怎么会提示没有定义呢? 你上例子吧