vb.net-Microsoft RDLC报表设计器-无法将对象数据集添加到rdlc

问题描述

我正在尝试通过报表设计器为VS2019中的WinForms项目实现RDLC报表。

首先，我在Presentation层中实现了我的第一个报告，方法是添加我在域层上实现的两个对象，一个对象具有简单的Public Properties（整数，字符串），第二个对象具有简单的Properties和Property清单（第1类）。一切正常。然后，我尝试使用相同的方法实现第二个报告，但是rdlc报告仅允许我添加Class 1对象，而不能添加Class 2对象（包括List的对象）。

这些是我要添加为rdlc数据集的对象。 （第一个已成功添加到rdlc报告中，但无法添加第二个）

Public Class TransfersDtld

Public Property TransferID As Integer
Public Property RegDate As Date
Public Property FromBranch As String
Public Property FromCounter As String
Public Property FromUser As String
Public Property ToBranch As String
Public Property ToCounter As String
Public Property ToUser As String
Public Property Currency As String
Public Property Amount As Decimal
Public Property RateType As String
Public Property LiquidationRate As Decimal
Public Property TransferState As String
Public Property AdditionalInfo As String
Public Property LastUpdate As Date
Public Property CloseBatch As Integer

End Class

无法添加到rdlc的对象的代码。

Imports DataAccess
Imports Common

Public Class TrnsDtldReport

Private _reportDate As DateTime
Private _startDate As DateTime
Private _endDate As DateTime
Private _userCode As String
Private _branch As String
Private _listTrnsfDtld As List(Of TransfersDtld)

Private transferRepository As ITransferRepository

Public Sub New()
    transferRepository = New TransferRepository()
End Sub

Public Property ReportDate As Date
    Get
        Return _reportDate
    End Get
    Set(value As Date)
        _reportDate = value
    End Set
End Property

Public Property StartDate As Date
    Get
        Return _startDate
    End Get
    Set(value As Date)
        _startDate = value
    End Set
End Property

Public Property EndDate As Date
    Get
        Return _endDate
    End Get
    Set(value As Date)
        _endDate = value
    End Set
End Property

Public Property UserCode As String
    Get
        Return _userCode
    End Get
    Set(value As String)
        _userCode = value
    End Set
End Property

Public Property Branch As String
    Get
        Return _branch
    End Get
    Set(value As String)
        _branch = value
    End Set
End Property

Public Property ListTrnsfDtld As List(Of TransfersDtld)
    Get
        Return _listTrnsfDtld
    End Get
    Set(value As List(Of TransfersDtld))
        _listTrnsfDtld = value
    End Set
End Property

Public Sub GetTransfersDtldReport(fromDate As DateTime,toDate As DateTime)

    ReportDate = Date.Now()
    StartDate = fromDate
    EndDate = toDate
    UserCode = ActiveUser.UserCode
    Branch = ActiveBranch.BranchCode
    ListTrnsfDtld = New List(Of TransfersDtld)()

    Dim resultTable As DataTable
    resultTable = transferRepository.GetTransfersDtldReport(StartDate,EndDate)

    For Each item As DataRow In resultTable.Rows
        Dim TransfersDtldModel = New TransfersDtld With {
            .TransferID = item(0),.RegDate = item(1),.FromBranch = item(2),.FromCounter = item(3),.FromUser = item(4),.ToBranch = item(5),.ToCounter = item(6),.ToUser = item(7),.Currency = item(8),.Amount = item(9),.RateType = item(10),.LiquidationRate = item(11),.TransferState = item(12),.AdditionalInfo = item(13),.LastUpdate = item(14),.CloseBatch = item(15)
        }
        ListTrnsfDtld.Add(TransfersDtldModel)
    Next

End Sub

End Class

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）