主题：关于表的赋值

datacolchanged事件

Dim r As DataRow = e.DataRow

If r("已回款") = True Then
    r("应收金额") = 0
Else
    r("应收金额") = r("收入")
End If

2楼代码不会导致不能编辑的问题。

看你其它事件代码，注释掉后测试。