vb.net - VB.NET でオブジェクトにバインドするレポート ビューアーを作成する方法

Question

「User」という名前のクラス、コードがあります：

 Public Class User

    Private m_id As String
    Private m_user_name As String

    Public Sub New(ByVal id As String, ByVal name As String, ByVal pwd As String)
      m_id = id
      m_user_name = name
      m_pwd = pwd
    End Sub

    Public Property Id() As String
      Get
          Return m_id
      End Get
      Set(ByVal value As String)
          m_id = value
      End Set
    End Property

    Public Property Name() As String
      Get
          Return m_user_name
      End Get
      Set(ByVal value As String)
          m_user_name = value
      End Set
    End Property

 End Class

そして、すべてのユーザー情報を報告したいので、「Users」という名前の別のクラス、コードもあります。

 Public Class Users
       inherits List(Of User)
       Public Sub New()
              'Query users' information from Table in Database
              Add(New User(...)
       End Sub
 End Class

「印刷」ボタンをクリックすると、レポートがポップアップ表示されます。Report Viewer を備えたフォームは 1 つしかありませんが、Report Viewer を備えたこのフォームを使用するレポートが多数あります。だから私はこのようにコーディングします：

 Public Class Form1
        Private Sub Form1_Load(...) Handles MyBase.Load

            Dim bs As New BindingSource
            bs.DataSource= New Users

            Dim rpt As New Microsoft.Reporting.WinForms.ReportDataSource
            rpt.Name = "Report_User"
            rpt.Value = bs
            ReportViewer1.LocalReport.DataSources.Add(rpt)
            ReportViewer1.LocalReport.ReportEmbeddedResource = rpt.Name
            ReportViewer1.RefreshReport()
        End Sub

しかし、何も表示されません...助けてください...本当にあなたの助けが必要です..よろしくお願いします

Answer 1

これで問題を解決できます。参照するにはここをクリックしてください