Question

我正在尝试使用此代码生成报告，但报告显示没有数据，只显示空白表单。

这段代码有什么问题？我也尝试使用报告向导。报告在我的计算机上运行良好但是当我在其他计算机上安装我的应用程序时，出现错误消息显示＆＃34;无法找到数据库文件＆＃34;。使用相同数据库运行良好的所有其他数据网格视图。请你好

Public Class rpPaket
Dim strConnectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Database2.accdb"
Dim objConnection As OleDbConnection
Dim objCommand As OleDbCommand
Dim objDataAdapter As OleDbDataAdapter
Dim objDataTable As DataTable
Dim Report As ReportDataSource

Private Sub rpPaket_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    objConnection = New OleDbConnection(strConnectionString)
    objCommand = New OleDbCommand("SELECT * from TbPaket", objConnection)
    ReportViewer1.LocalReport.Refresh()

    'Initialize the DataAdapter object and set the SelectCommand property
    objDataAdapter = New OleDbDataAdapter
    objDataAdapter.SelectCommand = objCommand

    'Initialize the DataTable object
    objDataTable = New DataTable
    Dim DataSet1 As Database2DataSet8.TbPaketDataTable = New Database2DataSet8.TbPaketDataTable
    'Populate the DataTable
    objDataAdapter.Fill(DataSet1)


    ' Dim ReportDataSource As New ReportDataSource("DataSet1_WORKORDERDataTable", CType(DataSet1, DataTable))
    'ReportViewer1.LocalReport.DataSources.Clear()
    'ReportViewer1.LocalReport.DataSources.Add(ReportDataSource)

    Dim adaptar As New Database2DataSet8TableAdapters.TbPaketTableAdapter
    Dim paket_tbl As New Database2DataSet8.TbPaketDataTable
    adaptar.Fill(paket_tbl)
    ReportViewer1.LocalReport.DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("DataSet1", paket_tbl.DefaultView))
    ReportViewer1.LocalReport.ReportPath = "Reports\Report3.rdlc"
    ReportViewer1.RefreshReport()


End Sub

结束班

报告查看器不显示报告

0 个答案: