无法显示Crystal Reports

Question

我是CrystalReports和VB6的新手，但我被要求维护系统。我们使用了VB6和Crystal Reports XI R2，并且没有显示水晶rpeort，它只是闪烁。代码是这样的：

wk_where = ""
wk_where = wk_where & "{GNS_EXCEPTION_TRAN.TRANSACTION_CODE} = '" + CST_OCA_PLUS + "' "

wk_where = wk_where & "{GNS_EXCEPTION_TRAN.TRANSACTION_CODE} = '" + CST_OCA_PLUS + "' "
wk_where = wk_where & "AND YEAR({GNS_EXCEPTION_TRAN.CREATE_DATE}) = " +     Format(GetSYSDATE, "YYYY")
wk_where = wk_where & " AND MONTH({GNS_EXCEPTION_TRAN.CREATE_DATE}) = " +       Format(GetSYSDATE, "MM")
wk_where = wk_where & " AND DAY({GNS_EXCEPTION_TRAN.CREATE_DATE}) = " + Format(GetSYSDATE, "DD")

With Report_Stock_Increase
    .ReportFileName = REPORT_DIR + "Stock_Increase_Proof.rpt"
    'DB CONNECT
    .Connect = CONNECT_STR

    'WHERE SET
    .SelectionFormula = wk_where

    'PARAMETER
    wk_where = "Date : " + Format(GetSYSDATE, "MM/DD/YYYY")
    .Formulas(2) = "Print_Date = '" + wk_where + "'"


    .ReportTitle = "** STOCK INCREASE  PROOF LIST **"
    .WindowTitle = "STOCK INCREASE PROOF LIST"

    .WindowState = crptMaximized

    If REPORT_PVIEW = True Then
        .Destination = crptToWindow
    Else
        .Destination = crptToPrinter
    End If

    'Preview
    .PrintReport

有人可以帮助我吗？谢谢。