如何在水晶报告中做出比较报告

Question

我在制作报告时遇到问题，以显示当前交易结果与其未来影响结果之间的比较

我正在使用vb.net，我正在使用数据表中的值显示报告，到目前为止，我的数据表显示了这样的记录。 在购买和销售交易中，此记录f_id = 1，如果有更多交易，它将在两者上增加。 我必须显示购买交易，左边是f_id = 1，右边是另一个。图3会告诉你我想说什么

目前我的报告显示如下

但我希望以这种风格显示报告，以便更容易在两者之间进行比较。     这是我在代码上打印数据的代码

Private Sub FutureTransaction()

    Dim sql = "SELECT client.cl_cname, company.co_sname, invmast.im_qty, invmast.im_rate, invmast.im_tdate,invmast.im_crate,invmast.im_tax,invmast.f_type,invmast.f_id"
    Sql += " FROM invmast "
    sql += "INNER JOIN company ON invmast.co_scode = company.co_scode "
    sql += "INNER JOIN  client ON invmast.cl_ccode = client.cl_ccode  and"
    sql += " invmast.fn_code = client.fn_code"
    sql += " where invmast.im_tdate>='" & dtpFromDate.Value.ToString("dd-MMM-yyyy") & "' and invmast.im_tdate <= '" & dtpToDate.Value.ToString("dd-MMM-yyyy") & "'"
    sql += " and invmast.f_type = 1 and im_qty > 0"
    sql += "ORDER BY invmast.f_id"

    Dim dt As New DataTable
    Dim da = New SqlDataAdapter(sql, cnMain)
    da.Fill(dt)
    Dim rpt As New FutureTransaction

    'Dim rptt As New FutureTransaction()
    rpt.DataDefinition.FormulaFields("FundName").Text = "'" & FundName & "'"
    rpt.DataDefinition.FormulaFields("FromDate").Text = "'" & dtpFromDate.Value.ToString("dd-MMM-yyyy") & "'"
    rpt.DataDefinition.FormulaFields("ToDate").Text = "'" & dtpToDate.Value.ToString("dd-MMM-yyyy") & "'"
    rpt.Refresh()
    frmReportViewer.crvMain.ReportSource = rpt
    frmReportViewer.crvMain.Refresh()
    frmReportViewer.Show()

End Sub

所以希望你们能帮助我。