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

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

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

 

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

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