- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助逻辑代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=13378)
-- 发布时间：2011/10/10 11:14:00
-- 求助逻辑代码
求救各位高手。如附件。怎样编写代码。看了几天帮助一头雾水。这个逻辑性太强。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.zip |
-- 发布时间：2011/10/10 11:18:00
--
问题不做任何说明？让人猜迷？
-- 发布时间：2011/10/10 12:23:00
-- 不好意思
初始 余额=应付款+金额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支出金额
狐狸爸爸千万帮帮忙
-- 发布时间：2011/10/10 12:37:00
-- 例A
表A例A的值加入到表B例A
-- 发布时间：2011/10/10 13:48:00
-- 求助
初始 余额=应付款+金额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支出金额
狐狸爸爸千万帮帮忙
-- 发布时间：2011/10/10 14:37:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:奪燴砐醴1.table |
-- 发布时间：2011/10/10 14:48:00
--
表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
-- 发布时间：2011/10/10 14:52:00
-- 太感谢了
太感谢了
-- 发布时间：2011/10/10 14:55:00
--
呵呵，你自己都整理出了清晰的逻辑，为什么写不出代码呢？
建议多看两遍帮助。