Как использовать набор данных vb.net на RDL или RDLC? - PullRequest
0 голосов
/ 06 декабря 2018

У меня есть простое приложение vb.net.

Module Module1
    Sub Main()
        ' Two DataTables.
        Dim table1 As DataTable = New DataTable("patients")
        table1.Columns.Add("name")
        table1.Columns.Add("id")
        table1.Rows.Add("sam", 1)
        table1.Rows.Add("mark", 2)

        Dim table2 As DataTable = New DataTable("medications")
        table2.Columns.Add("id")
        table2.Columns.Add("medication")
        table2.Rows.Add(1, "atenolol")
        table2.Rows.Add(2, "amoxicillin")

        ' Create a DataSet. Put both tables in it.
        Dim set1 As DataSet = New DataSet("office")
        set1.Tables.Add(table1)
        set1.Tables.Add(table2)

    End Sub
End Module

Я хотел бы использовать RDL или RDLC для отображения одной из таблиц в моем наборе данных (set1).Могу ли я сделать это?если да, как я могу это сделать ??

Я хочу (или надеюсь) запустить RDL или RDLC без необходимости подключения SQL или базы данных Access MDB, а также промежуточного файла XML или CSV в файловой системе.

спасибоВы за чтение моего вопроса.

1 Ответ

0 голосов
/ 06 декабря 2018

Наконец-то у меня все заработало.

Я пропустил этот шаг, чтобы добавить xsd.см. снимок экрана ниже.

Так что это мой последний код. ДРУГОЙ ВАЖНЫЙ ТОЧКА - ЭТО БАЗА ДАННЫХ В XSD должно совпадать с именем вашей Базы данных DATATABLE в форме form_load

Imports Microsoft.Reporting.WinForms

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim DataTable1 As DataTable = New DataTable("patients")
        DataTable1.Columns.Add("name")
        DataTable1.Columns.Add("id")
        DataTable1.Rows.Add("sam", 1)
        DataTable1.Rows.Add("mark", 2)


        ReportViewer1.LocalReport.ReportPath = "C:\IT\MISC\Visual Studio Project PLAYGROUND\WinFormPlay\Report\Report1.rdlc"


        ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("DataSet1", DataTable1))

        Me.ReportViewer1.RefreshReport()


    End Sub

End Class

enter image description here

...