Sql 需要将总计传递给crystal report

标准日期是日期

Dim dt作为新数据表 尺寸q1，q2为字符串 q1=“选择总额（当AdjustmentFlag='D'然后选择0-Amount else Amount End）作为总计、rp.TransactionCode、rp.ReferenceDate、rp.TransactionFlag、rp.EncashDate”&_ “来自dbo.ReceiptsPayments rp、dbo.ReceiptsPaymentsDetail rd”_ 其中rp.TransactionCode=rd.TransactionCode和（rp.EncashDate为NULL或rp.EncashDate>strDate）和TransactionFlag='P'组（按）rp.TransactionCode、rp.ReferenceDate、rp.TransactionFlag、rp.EncashDate

q2=“选择总和（调整时的案例标志='D'然后选择0-金额-其他金额结束）作为总额”&_
“来自收款人rp、收款人详细信息rd”_
其中rp.TransactionCode=rd.TransactionCode，ReferenceDatedim strDate作为日期
strDate=格式（dtpMonthOf.Value，“dd-MM-yyyy”）

Dim dt作为新数据表
尺寸q1，q2为字符串
q1=“选择总额（当AdjustmentFlag='D'然后选择0-Amount else Amount End）作为总计、rp.TransactionCode、rp.ReferenceDate、rp.TransactionFlag、rp.EncashDate”&_
“来自dbo.ReceiptsPayments rp、dbo.ReceiptsPaymentsDetail rd”_
其中rp.TransactionCode=rd.TransactionCode和（rp.EncashDate为NULL或rp.EncashDate>strDate）和TransactionFlag='P'组（按）rp.TransactionCode、rp.ReferenceDate、rp.TransactionFlag、rp.EncashDate

q2=“选择总和（调整时的案例标志='D'然后选择0-金额-其他金额结束）作为总额”&_
“来自收款人rp、收款人详细信息rd”_
其中rp.TransactionCode=rd.TransactionCode和ReferenceDate
        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")

        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")