datacolchanged事件
Dim r As DataRow = e.DataRow
If r("已回款") = True Then r("应收金额") = 0Else r("应收金额") = r("收入")End If