水晶报表中数据显示问题

在crystal report9.0中，水晶报表能够正常显示。但是，将报表转入到
程序中就不能够正常的显示了（只显示水晶报表框架，没有数据）。
不知道什么原因？

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

<%@ LANGUAGE="VBSCRIPT" %>
<%
Dim reinslip_no
Dim Reportname
Dim Path
Dim iLen
reinslip_no = trim(request.querystring("reinslip_no") & " ")Reportname = "M1SL0073.Rpt"'Response.Write "warehouse = " & fDate & "<BR>"
'Response.Write "warehouse = " & tDate & "<BR>"
'Response.Write "warehouse = " & warehouse_code & "<BR>"
'Response.end
' 农府胶呕饭器飘 OBJECT 甫积己
If Not IsObject (session("oApp")) Then
  Set session("oApp") = Server.CreateObject("CrystalRuntime.Application.9")
End If
' 饭器飘颇老狼 PATH甫瘤沥
Path = Request.ServerVariables("PATH_TRANSLATED")
While (Right(Path, 1) <> "\" And Len(Path) <> 0)
iLen = Len(Path) - 1
Path = Left(Path, iLen)
Wend                                                                  If IsObject(session("oRpt")) then
Set session("oRpt") = nothing
End ifOn error resume next' 饭器飘颇老阑 OPEN茄促
Set session("oRpt") = session("oApp").OpenReport(path & reportname, 1)' 饭器飘颇老俊沥焊甫涝仿茄促
set Database = session("oRpt").Database
Call Database.Tables.Item(1).SetLogOnInfo (CRPTSERVERNAME,CRPTSaleDBNAME,CRPTUSERID,CRPTPASSWORD)
Set Database = nothing
If Err.Number <> 0 Then
  Response.Write "Error Occurred creating Report Object: " & Err.Description
  Set Session("oRpt") = nothing
  Set Session("oApp") = nothing
  Session.Abandon
  Response.End
End Ifsession("oRpt").MorePrintEngineErrorMessages = False
session("oRpt").EnableParameterPrompting = Falsesession("oRpt").DiscardSavedData                     ' 颇扼固磐蔼阑农府胶呕饭器飘俊傈崔茄促
Session("oRpt").ParameterFields.GetItemByName("@ReinSlip_no").ClearCurrentValueAndRange
Session("oRpt").ParameterFields.GetItemByName("@ReinSlip_no").AddCurrentValue(reinslip_no)'====================================================================================
' Retrieve the Records and Create the "Page on Demand" Engine Object
'====================================================================================On Error Resume Nextsession("oRpt").ReadRecords
If Err.Number <> 0 Then
  Response.Write "Error Occurred Reading Records: " & Err.Description
  Set Session("oRpt") = nothing
  Set Session("oApp") = nothing
  Session.Abandon
  Response.End
Else
  If IsObject(session("oPageEngine")) Then
   set session("oPageEngine") = nothing
  End If
  set session("oPageEngine") = session("oRpt").PageEngine
End If%>
<HTML>
<HEAD>
<TITLE>退货单</TITLE>
</HEAD>
<BODY BGCOLOR=C6C6C6 ONUNLOAD="CallDestroy();" leftmargin=0 topmargin=0 rightmargin=0 bottommargin=0><OBJECT ID="CRViewer"
CLASSID="CLSID:2DEF4530-8CE6-41c9-84B6-A54536C90213"
WIDTH=100% HEIGHT=100%
   codebase="http://<%=CRPTSERVERNAME%>/package/activexviewer.cab#Version=9,2,0,442" VIEWASTEXT>
<PARAM NAME="EnableRefreshButton" VALUE=0>
<PARAM NAME="EnableGroupTree" VALUE=0>
<PARAM NAME="DisplayGroupTree" VALUE=0>
<PARAM NAME="EnablePrintButton" VALUE=1>
<PARAM NAME="EnableExportButton" VALUE=1>
<PARAM NAME="EnableDrillDown" VALUE=1>
<PARAM NAME="EnableSearchControl" VALUE=1>
<PARAM NAME="EnableAnimationControl" VALUE=1>
<PARAM NAME="EnableZoomControl" VALUE=1>
</OBJECT><SCRIPT LANGUAGE="VBScript">

</SCRIPT><script language="javascript">
function CallDestroy()
{
window.open("Cleanup.asp");
}
</script></BODY>
</HTML>