急求水晶报表如何将多个表组合成在一起显示

tqwer 2005-07-08 05:06:47

我在水晶报表中现在可以组合两个表在一起显示但在组合第三个表时老提示搜索引擎错误，但是我单表测试却没有问题，是怎么回事请大家帮解答一下。以下是代码：
Imports System.Data.SqlClient
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Public Class jl_jlform
Inherits System.Web.UI.Page
Dim sql_conn As SqlConnection
Dim sql_data As SqlDataAdapter
Dim sql_dataset As dataset

#Region " Web 窗体设计器生成的代码 "

'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub
Protected WithEvents CrystalReportViewer1 As CrystalDecisions.Web.CrystalReportViewer

'注意: 以下占位符声明是 Web 窗体设计器所必需的。
'不要删除或移动它。
Private designerPlaceholderDeclaration As System.Object

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub

#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
Dim opt As New ReportDocument
sql_conn = New SqlConnection("server=192.168.8.50;uid=1;pwd=1;database=nbjl_data")
sql_dataset = New DataSet
sql_conn.Open()

sql_data = New SqlDataAdapter("select * from jl_xtgz", sql_conn)
sql_data.Fill(sql_dataset, "jl_xtgz")
opt.Load(Server.MapPath("jl_gzrpt.rpt"))
opt.SetDataSource(sql_dataset)

sql_data = New SqlDataAdapter("select * from jl_car", sql_conn)
sql_data.Fill(sql_dataset, "jl_car")
opt.Load(Server.MapPath("jl_carrpt.rpt"))
opt.SetDataSource(sql_dataset)

sql_data = New SqlDataAdapter("select bz as zyjs from jl_water", sql_conn)
sql_data.Fill(sql_dataset, "jl_zyjs")
opt.Load(Server.MapPath("jl_zyjsrpt.rpt"))
opt.SetDataSource(sql_dataset)

sql_data = New SqlDataAdapter("select * from jl_water", sql_conn)
sql_data.Fill(sql_dataset, "jl_water")
opt.Load(Server.MapPath("jl_waterrpt.rpt"))
opt.SetDataSource(sql_dataset)

sql_conn.Close()
sql_conn.Dispose()

Dim fname As String
Dim crDiskFileDestinationOptions As DiskFileDestinationOptions
Dim crExportOptions As ExportOptions

fname = "c:\temp.pdf"
crDiskFileDestinationOptions = New DiskFileDestinationOptions
crDiskFileDestinationOptions.DiskFileName = fname
crExportOptions = opt.ExportOptions
With crExportOptions
.DestinationOptions = crDiskFileDestinationOptions
.ExportDestinationType = ExportDestinationType.DiskFile
.ExportFormatType = ExportFormatType.PortableDocFormat
End With
opt.Export()
Response.ClearContent()
Response.ClearHeaders()
Response.ContentType = "application/pdf"
Response.WriteFile(fname)
Response.Flush()
Response.Close()
End Sub

End Class

...全文