各位高手救命!asp+sql server 2000+水晶报表9.0老是报错“该字段名未知。”!!!
a9682 2008-07-24 12:00:52 出错:是An Error has occured on the server in attempting to access the data source该字段名未知。
如果解决:这高手提点,程序如下.
If Request("Op")="report" Then
StLdrq=Trim(Request.Form("ldrq1") & "")
If StLdrq="" Then
StLdrq="1900/01/01"
End If
StLdrq = StLdrq & " "
EnLdrq=Trim(Request.Form("ldrq2") & "")
If EnLdrq="" Then
EnLdrq="9999/12/31"
End If
mhkd = Trim(Request.Form("txthkd"))
'mhkd = CDbl(mhkd)
musd = Trim(Request.Form("txtusd"))
'musd = CDbl(musd)
meur = Trim(Request.Form("txteur"))
' meur = CDbl(meur)
If IsObject(Session("oRs")) Then
Set Session("oRs")=Nothing
End If
Set Session("oRs") = Server.CreateObject("ADODB.Recordset")
Set Session("oRs").ActiveConnection = AdoCon
Ex = " Kddyrn Between '" & StLdrq & "' And '" & EnLdrq & "' And Scbmbm Like '" & Request.Form("txtScbm") & "%'"
Ex = Ex & " And Kkhbm Like '" & Request.Form("txtCustNo") & "%' "
'Request.Form("txtCustNo")
'If Session("DepartName") = "生产经营部" And InStr(1,Session("Business"),"经理") = 0 Then
' Ex = Ex & " And Team = '" & Session("Team") & "' "
'End If
response.write StLdrq
response.write EnLdrq
'response.write "<br>"
response.write "exec kh_kdz_rmb '" & StLdrq & "','" & EnLdrq & "','" & Request.Form("txtCustNo") & "'," & mhkd & "," & musd & ","& meur & ""
'Session("oRs").Open "Select * From dbo.[Order] Where " & Ex & " Order By kcpbm,kddyrn,rekbh"
Session("oRs").Open "exec kh_kdz_rmb '" & StLdrq & "','" & EnLdrq & "','" & Request.Form("txtCustNo") & "'," & mhkd & "," & musd & ","& meur &""
ReportName = "kh_kdz_rmb.rpt"
ReportTitle="各部接单情况统计表"
If Not IsObject (session("oApp")) Then
Set session("oApp") = Server.CreateObject("CrystalRuntime.Application")
End If
If IsObject(Session("oRpt")) then
Set Session("oRpt") = Nothing
End if
response.write Server.MapPath(ReportName)
Set Session("oRpt") = Session("oApp").OpenReport(Server.MapPath(ReportName), 1)
'Set Session("oRpt") = Session("oApp").OpenReport("kh_kdz_rmb.rpt",1)
Session("oRpt").MorePrintEngineErrorMessages = False
Session("oRpt").EnableParameterPrompting = False
Session("oRpt").DiscardSavedData
Set Database = Session("oRpt").Database
Set Tables = Database.Tables
Set Table1 = Tables.Item(1)
Table1.SetPrivateData 3,Session("oRs")
'response.write(CDate(StLdrq))
'response.end
Session("oRpt").ParameterFields(1).AddCurrentValue CDate(StLdrq)
' Session("oRpt").ParameterFields(1).AddCurrentValue StLdrq
Session("oRpt").ParameterFields(2).AddCurrentValue CDate(EnLdrq)
' Session("oRpt").ParameterFields(2).AddCurrentValue EnLdrq
On Error Resume Next
Err.Clear
Session("oRpt").ReadRecords
If Err.Number <> 0 Then
Response.Write "An Error has occured on the server in attempting to access the data source" & ERR.DESCRIPTION
Response.End
Else
If IsObject(Session("oPageEngine")) Then
Set Session("oPageEngine") = Nothing
End If
Set Session("oPageEngine") = Session("oRpt").PageEngine
End If