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

一个收入明细，一个支出明细，，希望能首先按照日期，相同日期的行按照先收入后支出，先收人高再收入低，支出少，最后支出多的顺序。合并成新的表格交易明细。请教老师

参考代码

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

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

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

可以的。重新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)("支付金额")

End If

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

具体什么问题，请详细说明，上传例子测试。

主题：按条件条件合并表格