主题：求助逻辑代码

问题不做任何说明？让人猜迷？

表A的DataColChanged事件：

Select Case e.DataCol.name
    Case "金额1支付","金额2支付","销账"
       DataTables("表B").DeleteFor("A = '" & e.DataRow("A") & "'")
End Select
If e.DataRow("金额1支付") Then
    e.DataRow("余额") = e.DataRow("应付金额") + e.DataRow("金额1")
    Dim r As Row = Tables("表B").AddNew
    r("A") = e.DataRow("A")
    r("支出金额")= e.DataRow("金额1")
ElseIf e.DataRow("金额2支付") Then
    e.DataRow("余额") = e.DataRow("应付金额") + e.DataRow("金额1")
    Dim r As Row = Tables("表B").AddNew
    r("A") = e.DataRow("A")
    r("支出金额")= e.DataRow("金额2")
ElseIf e.DataRow("销账") Then
    e.DataRow("余额") = 0
    Dim r As Row = Tables("表B").AddNew
    r("A") = e.DataRow("A")
    r("支出金额")= e.DataRow("余额")
End If

呵呵，你自己都整理出了清晰的逻辑，为什么写不出代码呢？

建议多看两遍帮助。