需要将总计传递给水晶报表答案

【问题标题】：need to pass total to crystal report需要将总计传递给水晶报表
【发布时间】：2013-06-12 05:43:09
【问题描述】：

strdate 是日期

将 dt 调暗为新数据表将 q1、q2 调暗为字符串 q1 =“选择总和（当 AdjustmentFlag= 'D' 然后 0-Amount 否则 Amount End）作为总计，rp.TransactionCode，rp.ReferenceDate，rp.TransactionFlag，rp.EncashDate”＆_ " FROM dbo.ReceiptsPayments rp, dbo.ReceiptsPaymentsDetail rd" & _ " WHERE rp.TransactionCode = rd.TransactionCode AND (rp.EncashDate 为 NULL 或 rp.EncashDate > strDate)AND TransactionFlag = 'P' Group(BY) rp.TransactionCode, rp.ReferenceDate, rp.TransactionFlag, rp.EncashDate"

        q2 = "SELECT SUM(CASE when AdjustmentFlag='D' then 0-Amount else Amount end)as total " & _
             "FROM ReceiptsPayments rp, ReceiptsPaymentsDetail rd " & _
             "WHERE   rp.TransactionCode = rd.TransactionCode and ReferenceDate <= strDate" & _
             "AND TransactionFlag = 'P'"



        dt.Columns.Add("ReconciliationDate", System.Type.GetType("System.DateTime"), "")
        dt.Columns.Add("CashbookBalance", System.Type.GetType("System.Decimal"), "")
        dt.Columns.Add("ChequesdrawnnotCleared", System.Type.GetType("System.Int32"), "")
        dt.Columns.Add("ChequesreceivedNotCleared", System.Type.GetType("System.Int32"), "")


        Dim dr(3) As Object
        dr(0) = strDate 'ReconciliationDate
        dr(1) = GET_DATAVALUE(q2, conn) 'CashbookBalance
        dr(2) = 23 'GET_DATAVALUE("", conn) 'ChequesdrawnNotcleared
        dr(3) = 24 'GET_DATAVALUE("", conn) 'ChequesreceivedNotcleared


        dt.Rows.Add(dr)

        frmReportviewer.PrintReport(dt, "rptReconciliation.rpt")

【问题讨论】：

标签： sql vb.net crystal-reports-2008

【解决方案1】：

dim strDate 作为日期 strDate = Format(dtpMonthOf.Value, "dd-MM-yyyy")

        q2 = "SELECT SUM(CASE when AdjustmentFlag='D' then 0-Amount else Amount end)as total " & _
             "FROM ReceiptsPayments rp, ReceiptsPaymentsDetail rd " & _
             "WHERE   rp.TransactionCode = rd.TransactionCode and ReferenceDate <= '" & strDate & "'" & _
             "AND TransactionFlag = 'P'"



        dt.Columns.Add("ReconciliationDate", System.Type.GetType("System.DateTime"), "")
        dt.Columns.Add("CashbookBalance", System.Type.GetType("System.Double"), "")
        dt.Columns.Add("ChequesdrawnnotCleared", System.Type.GetType("System.Int32"), "")
        dt.Columns.Add("ChequesreceivedNotCleared", System.Type.GetType("System.Int32"), "")


        Dim dr(3) As Object
        dr(0) = strDate 'ReconciliationDate
        dr(1) = GET_DATAVALUE(q2, conn) 'CashbookBalance
        dr(2) = 23 'GET_DATAVALUE("", conn) 'ChequesdrawnNotcleared
        dr(3) = 24 'GET_DATAVALUE("", conn) 'ChequesreceivedNotcleared


        dt.Rows.Add(dr)

        frmReportviewer.PrintReport(dt, "rptReconciliation.rpt")

【讨论】：