标题：求助逻辑代码

求救各位高手。如附件。怎样编写代码。看了几天帮助一头雾水。这个逻辑性太强。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.zip

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

初始 余额=应付款+金额1+金额2

逻辑了“金额1支付”选择后。 余额=应付款+金额2 . 表B 增加一行 表A"A例"的值加入表B."A例"。‘金额1‘的值加入到表B支出金额

逻辑了“金额2支付”选择后。 余额=应付款+金额1 . 表B 增加一行 表A"A例"的值加入表B."A例"。‘金额2‘的值加入到表B支出金额

逻辑了“销账”选择后。 余额=0  表B 增加一行. 表A"A例"的值加入表B."A例"。‘ 原来“余额 ”的值加入到表B支出金额

狐狸爸爸千万帮帮忙

表A例A的值加入到表B例A

初始 余额=应付款+金额1+金额2

逻辑了“金额1支付”选择后。 余额=应付款+金额2 . 表B 增加一行 表A"A例"的值加入表B."A例"。‘金额1‘的值加入到表B支出金额

逻辑了“金额2支付”选择后。 余额=应付款+金额1 . 表B 增加一行 表A"A例"的值加入表B."A例"。‘金额2‘的值加入到表B支出金额

逻辑了“销账”选择后。 余额=0  表B 增加一行. 表A"A例"的值加入表B."A例"。‘ 原来“余额 ”的值加入到表B支出金额

狐狸爸爸千万帮帮忙

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:奪燴砐醴1.table

表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

太感谢了

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

建议多看两遍帮助。