专家坐堂-按条件条件合并表格Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  按条件条件合并表格  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=113433)

--  作者：xu84988
--  发布时间：2018/1/15 23:33:00
--  按条件条件合并表格
一个收入明细，一个支出明细，，希望能首先按照日期，相同日期的行按照先收入后支出，先收人高再收入低，支出少，最后支出多的顺序  。合并成新的表格交易明细。请教老师

--  作者：有点蓝
--  发布时间：2018/1/16 8:47:00
--
用查询表，参考：http://www.foxtable.com/webhelp/scr/2322.htm

--  作者：有点甜
--  发布时间：2018/1/16 9:05:00
--

参考代码

select 公司, 收款金额, 0 as 发货金额 from {收款} union all select 公司, 0, 发货金额 from {发货}

http://www.foxtable.com/webhelp/scr/2321.htm

--  作者：xu84988
--  发布时间：2018/1/16 11:08:00
--

按照老师的方法得到的表格不能用作流水账的表格吧？不能做出帮助中流水账的效果吧？

--  作者：有点甜
--  发布时间：2018/1/16 11:13:00
--

可以的。重新load查询表后，生成余额，如

DataTables("入库与支付").Load

For Each h As String In DataTables("入库与支付").GetValues("供应商")

Dim drs As List(Of DataRow) = DataTables("入库与支付").Select("供应商=\'" & h & "\'","日期")

If drs.Count > 0 Then

drs(0)("余额") = drs(0)("入库金额") - drs(0)("支付金额")

If drs.Count > 1 Then

For i As Integer = 1 To drs.Count - 1

drs(i)("余额") = drs(i-1)("余额") + drs(i)("入库金额") - drs(i)("支付金额")

Next

End If

End If

Next

--  作者：xu84988
--  发布时间：2018/1/25 21:32:00
--

Dim r As Row = e.Table.Current
If r IsNot Nothing Then
    DataTables("明细").DataRows.Clear
    Dim Filter As String = "账单编号 = \'" & e.DataRow("账单编号")&"\'"
    Dim Names() As String = {"收入明细","支出明细"}
    For Each Name As String In Names
        Dim prs As List(Of DataRow) = DataTables(Name).Select(Filter,"出账日期")
        For Each pr As DataRow In prs
            Dim dr As DataRow = DataTables("明细").AddNew()
            DataTables("明细").StopRedraw
            dr("账单编号") = pr("账单编号")
            dr("交易日期") = pr("交易日期")
            dr("交易方式") = pr("交易方式")
            dr("业务编号") = pr("业务编号")
            dr("对象编号") = pr("对象编号")
            dr("对象名称") = pr("对象名称")
            dr("账户编号") = pr("账户编号")
            dr("账户名称") = pr("账户名称")
            dr("出账") = pr("出账")
            dr("审核") = pr("审核")
            If pr.DataTable.Name = "收入明细"
                dr("收入金额") = pr("交易金额")
                dr("支出金额") = Nothing
            ElseIf pr.DataTable.Name = "支出明细"
                dr("支出金额") = pr("交易金额")
                dr("收入金额") = Nothing
            End If
            DataTables("明细").ResumeRedraw
        Next
    Next
End If

--  作者：xu84988
--  发布时间：2018/1/25 21:33:00
--

Dim r As Row = e.Table.Current
If r IsNot Nothing Then
    DataTables("明细").DataRows.Clear
    Dim Filter As String = "账单编号 = \'" & e.DataRow("账单编号")&"\'"
    Dim Names() As String = {"收入明细","支出明细"}
    For Each Name As String In Names
        Dim prs As List(Of DataRow) = DataTables(Name).Select(Filter,"出账日期")
        For Each pr As DataRow In prs
            Dim dr As DataRow = DataTables("明细").AddNew()
            DataTables("明细").StopRedraw
            dr("账单编号") = pr("账单编号")
            dr("交易日期") = pr("交易日期")
            dr("交易方式") = pr("交易方式")
            dr("业务编号") = pr("业务编号")
            dr("对象编号") = pr("对象编号")
            dr("对象名称") = pr("对象名称")
            dr("账户编号") = pr("账户编号")
            dr("账户名称") = pr("账户名称")
            dr("出账") = pr("出账")
            dr("审核") = pr("审核")
            If pr.DataTable.Name = "收入明细"
                dr("收入金额") = pr("交易金额")
                dr("支出金额") = Nothing
            ElseIf pr.DataTable.Name = "支出明细"
                dr("支出金额") = pr("交易金额")
                dr("收入金额") = Nothing
            End If
            DataTables("明细").ResumeRedraw
        Next
    Next
End If

--  作者：有点甜
--  发布时间：2018/1/25 22:36:00
--
具体什么问题，请详细说明，上传例子测试。