主题：代码不计算

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "合同价","到账","预收费"
        If dr("到账")=False Then
           dr("剩余费") = dr("合同价")-dr("预收费")
       End If

          dr("剩余费")  = 0
End Select