主题：无法清零

Dim dr22 As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "已付款","金额","收订金"
        If dr22("已付款")  Then 

             dr22("余额") = 0
       Else
            dr22("余额") = dr22("金额") - dr22("收订金")

       End If
End Select