В отчете нет таблиц

Question

Private Sub frmReportExpenses_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim objDatasetExpence As New dSetExpences   // dataset object named as dSetExpences
Dim objRptExpence As New rptExpences       // Crystal report object
Dim MyCommand As New OleDbCommand()
Dim MyConnection As OleDbConnection
Dim myDA As New OleDbDataAdapter()

Try
    Dim connstring As String = "D:\HMSProjects\SMS\SMS\bin\Debug\"
    MyConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + connstring + "msautoconfig.mdb;")
    MyConnection.Open()
    MyCommand.Connection = MyConnection

    MyCommand.CommandText = "SELECT * FROM expences"
    MyCommand.CommandType = CommandType.Text
    myDA.SelectCommand = MyCommand

    myDA.Fill(objDatasetExpence, "expences")
    objRptExpence.SetDataSource(objDatasetExpence)   // error here (Report has no Table)
    CrystalReportViewer1.ReportSource = objRptExpence
Catch ex As Exception

End Try

Me.WindowState = FormWindowState.Maximized
End Sub
End Class

Этот код показывает ошибку "Report has no tables" Я хочу показать отчет Crystal, используя базу данных Access 2003 прагматично.Пустой отчет добавляется в проект и пытается заполнить его объектом DataSet, любые предложения или исправления в приведенном выше коде.

Answer 1

Да, вы добавили значения DataAdapter в таблицу в наборе данных objDatasetExpence с именем "expences", и вы не указываете источник данных объекта отчета на набор данных внутри набора данных.Измените код следующим образом и повторите попытку

objRptExpence.SetDataSource(objDatasetExpence.Tables(0)) 
          (or)
objRptExpence.SetDataSource(objDatasetExpence.Tables("expences")) 

Когда вы не назначите источник данных для полей базы данных отчета, появится та же ошибка: «В отчете нет таблиц».См. Рисунок ниже, а также следующее изображение, где я назначил поля базы данных для отчета и ту же ошибку, которую получил