如何解决VB.NET中reportviewer/rdlc中未全部出现的列

Question

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

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

还有其他方法请指导吗

谢谢

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

代码产品	颜色	S	M	L	总计
A	黑色		20		20
A	白色	15		10	25

代码产品在哪里：B

代码产品	颜色	S	XL	总计
B	蓝色	20		20
B	白色		15	15

Answer 1

根据此链接解决方案

这是链接！

和 这是一个链接！

首先右键单击该列并选择“列可见性”

选择“显示或隐藏基于表达式的基础”

并为每列设置一个表达式

=iif(SUM(Fields!S.Value)=0,True,False)
=iif(SUM(Fields!L.Value)=0,True,False)
=iif(SUM(Fields!M.Value)=0,True,False)
=iif(SUM(Fields!XL.Value)=0,True,False)