[求助]三个表之间的计算 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

表名：档案表

卡号	建档余额	当前余额	状态
111	100.0		可用
222	200.0		可用
333	300.0		停用

表名：收款表

卡号	收款时间	收款金额
111	2013-05-05	100.0
222	2013-05-06	200.0
111	2013-05-07	300.0
222	2013-05-08	400.0

表名：扣款表

卡号	扣款日期	扣款金额
111	2013-06-01	50
222	2013-06-02	50
111	2013-06-03	50
222	2013-06-04	50

如上所示：有三张表。其中“档案表”中的【当前余额】应该为【建档余额】+【收款金额】再-【扣款金额】。我想做到的就是不论什么时间收款、扣款，相应卡号的当前余额都应该及时自动更新并自动填充到“档案表”的【当前余额】中。

我能力有限，只能做到目前这种地步：

在“档案表”中的DataColChanged 事件中写代码，

For Each r As DataRow In DataTables("档案表").DataRows
If e.DataCol.Name="卡号" And r("状态")="正常" Then
    For Each dr As DataRow In DataTables("收款表").DataRows
    For Each dr1 As DataRow In DataTables("扣款表").DataRows
        If r("卡号")=e.NewValue Then
            r("当前余额")=r("建档余额")+dr("收款金额")-dr1("扣款金额")
        End If
    Next
    Next

End If
Next

而且就是写出来了，也有错，这段代码在调用“收款金额”“扣款金额”的时候，只调用相同卡号的最后一条记录。求狐爸帮忙。谢谢

以下是引用Bin在2013-7-22 14:19:00的发言：
扣款表中

If e.DataCol.Name="扣款金额" Then

dim dr as datarow = datatables("档案表").Find("卡号='" & e.datarow("卡号") & "'")

dim dr2 as datarow = datatables("收款表").Find("卡号='" & e.datarow("卡号") & "'")

if dr isnot nothing then

dr("当前余额")=dr("建档余额 ")+dr2("收款金额")-e.datarow("扣款金额")

end if

Thanks you 马上试试

收款表中

If e.DataCol.Name="收款金额" Then

dim dr as datarow = datatables("档案表").Find("卡号='" & e.datarow("卡号") & "'")

dim dr2 as datarow = datatables("扣款表").Find("卡号='" & e.datarow("卡号") & "'")

if dr isnot nothing then

dr("当前余额")=dr("建档余额 ")+e.datarow("收款金额")-dr2("扣款金额")

end if

档案表中

If e.DataCol.Name="建档余额" And e.datarow("状态")="正常" Then

dim dr as datarow = datatables("收款表").Find("卡号='" & e.datarow("卡号") & "'")

dim dr2 as datarow = datatables("扣款表").Find("卡号='" & e.datarow("卡号") & "'")

if dr isnot nothing then

e.datarow("当前余额")=e.datarow("建档余额 ")+dr("收款金额")-dr2("扣款金额")

end if

有问题。。。

还是那种情况，如果同一卡号有多条收款记录的话，代码找的是最后面一条，并没有将收款金额全部相加（同一卡号）。

同理扣款也是一样的

可不可以直接将FIND 换成Compute呢？

就像Dim dr As DataRow = DataTables("收款表").Compute("卡号='" & e.DataRow("卡号") & "'")
Dim dr2 As DataRow = DataTables("规费记录").Compute("卡号='" & e.DataRow("卡号") & "'")

If e.DataCol.Name="建档余额" And e.DataRow("状态")="正常" Then
    Dim dr As DataRow = DataTables("收款表").Compute("Sum(充值金额)","卡号='" & e.DataRow("卡号") & "'")
    Dim dr2 As DataRow = DataTables("规费记录").Compute("Sum(扣款金额)","卡号='" & e.DataRow("卡号") & "'")
    If dr IsNot Nothing Then
            e.DataRow("当前余额")=e.DataRow("建档余额")+dr("充值金额")-dr2("扣款金额")
    End If
End If

请帮我检查一下。谢谢是这样吗？

If e.DataCol.Name="建档余额" And e.DataRow("状态")="正常" Then
    Dim dr As Integer = DataTables("收款表").Compute("Sum(充值金额)","卡号='" & e.DataRow("卡号") & "'")
    Dim dr2 As Integer = DataTables("规费记录").Compute("Sum(扣款金额)","卡号='" & e.DataRow("卡号") & "'")

            e.DataRow("当前余额")=e.DataRow("建档余额")+dr - dr2

End If

我想请教一个问题：如果我想将一个表中的各别列的所有数据填充到另外一张表中。用下面这段代码可行吗？

For Each r As DataRow In DataTables("Car").DataRows
    e.DataRow("卡号")=r("卡号")
    e.DataRow("车牌号")=r("车牌号")
    e.DataRow("车主")=r("车主")
    e.DataRow("扣款日期")=Date.Today
    e.DataRow("扣款金额")=je.Text
    e.DataRow("状态")="月扣"
Next

主题：[求助]三个表之间的计算