向阿泰求助 （如何向水晶报表传递参数 ）

Question

如我在一行中双击   把其中的一个字段   编号传给水晶报表     打开水晶报表   显示该编号的详细信息 
已经可以弹出水晶报表  但是都是那条记录（在设计器中保存的那条记录）  没有动态变化（双击其他的单号还是那条记录） 
以下就是要打开的报表文件  adorecordset.asp
<%@ LANGUAGE="VBSCRIPT" %>
<%
reportname = "ADORecordSetReport.rpt"
%>
<!-- #include file="AlwaysRequiredSteps.asp" -->                       
<%
Set oADOConnection = Server.CreateObject("ADODB.Connection")
oADOConnection.Open ("Driver={SQL Server};SERVER=test;UID=sa;PWD=123;DATABASE=mir")
Set oADORecordset = Server.CreateObject("ADODB.Recordset")
str_jydbh = request.getParameter("JYDBH")
Set oADORecordset = oADOConnection.Execute("Select [jydbh],[sxhh], [zdtime] From jydxx where jydbh={'" & str_jydbh & "'}")
Set oRptTable = session("oRpt").Database.Tables.Item(1)
oRptTable.SetDataSource oADORecordset, 3
%>
<!-- #include file="MoreRequiredSteps.asp" -->
<!-- #include file="SmartVieweractivex.asp" --> 

Answer 1

在
Set   oRptTable   =   session("oRpt").Database.Tables.Item(1) 
oRptTable.SetDataSource   oADORecordset,   3 
之前加一行
session("oRpt").DiscardSavedData
看看

Answer 2

搞定拉  Set oADOConnection = Server.CreateObject("ADODB.Connection")
 oADOConnection.open ("Driver={SQL Server};SERVER=test;UID=sa;PWD=hd56;DATABASE=mir" )
'oADOConnection.Open ("Xtreme Sample Database 9")
Set oADORecordset = Server.CreateObject("ADODB.Recordset")jydbh=request("jydbh")
Set oADORecordset = oADOConnection.Execute("Select jydbh,chang,kuang,gao,jianshu,dtj,dzl,ztj,zzl,danjia from hwxx where jydbh='"&jydbh&"' ")搞了2天多！