如何解决列未全部出现在 VB.NET 的 ReportViewer/RDLC 中

问：

我正在尝试解决列未全部出现在 reportviewer/rdlc 中的 VB.NET

我有下面的代码，但这仍然是错误的。

有没有其他方法请指导我

谢谢

Public Class Form2
Dim tps As New Tableproductservice() 
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim form2 = New Form3()
        Dim rds = New ReportDataSource("DataSet1", tps.Loaddata("A"))
        form2.ReportViewer1.LocalReport.DataSources.Clear()
        form2.ReportViewer1.LocalReport.DataSources.Add(rds)
        form2.ReportViewer1.LocalReport.ReportEmbeddedResource = "transposerowtocolumnsqlmsaccessvbnet.Report1.rdlc"
        form2.ShowDialog()
    End Sub
Public Class Tableproductservice
    Private connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\transposerowtocolumnsqlmsaccessvbnet.accdb;Persist Security Info=False"

 Dim sql = <sql>
                      TRANSFORM Sum(Tableproduct.[Qty]) AS SumOfQty
SELECT Tableproduct.Codeproduct AS [CodeProduct], Tableproduct.Colour AS [Colour],Sum(Tableproduct.Qty) AS [Total]
FROM Tableproduct INNER JOIN SizeProduct ON Tableproduct.Size = SizeProduct.Size
WHERE Tableproduct.Codeproduct = ?
GROUP BY Tableproduct.Codeproduct, Tableproduct.Colour
PIVOT SizeProduct.Size;
                  </sql>.Value
        Using _conn = New OleDbConnection(connectionString)
            Return _conn.Query(Of Tableproduct)(sql, New With {Key .CodeProduct = CodeProduct}).ToList()
        End Using
    End Function
End Class
Public Class Tableproduct
    Public Property CodeProduct() As String
    Public Property Colour() As String
    Public Property S() As Integer
    Public Property M() As Integer
    Public Property L() As Integer
    Public Property XL() As Integer
    Public Property Total() As Integer
End Class
Public Class SizeProduct
    Public Property Size() As String
    Public Property Sequence() As Integer
End Class

下面是上面代码的结果截图

期望的结果：

哪里 对于代码产品 ： A

代码产品的位置 ： B