主题：计算代码问题

请教老师，下面代码部分能计算，黄色部分有时计算有时不会计算，大部分时间不会计算，是哪里写错了

我还加了强制刷新 Tables("合同副表").Refresh，也不行

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "合同金额","收款金额","收付类别"
        If e.DataRow("收付类别") = "付款合同" Then
        dr("应收未收") = dr("收款金额") * 0
        Else
        dr("应收未收") = dr("收款金额")-dr("合同金额")
    End If
        Case "合同金额","收款金额","付款金额"
        dr("收款进度") = dr("收款金额") / dr("合同金额") 
        dr("付款进度") = dr("付款金额") / dr("合同金额")
    End If
End Select