reportviewer中未加载数据VB.NET

Question

我在ms-sql server 2014中创建了存储过程并创建了rdlc报告。现在结合中的ReportViewer报告编程，但在报告仅列显示，而不是数据...

下面的代码是我的存储过程：

USE [Bonny] 
GO 
/****** Object: StoredProcedure [dbo].[AccMast_AllDetail] Script Date: 17/10/2016 12:10:42 ******/ 
SET ANSI_NULLS ON 
GO 
SET QUOTED_IDENTIFIER ON 
GO 
ALTER Proc [dbo].[AccMast_AllDetail] 
as 
Select Account_Code,Party_Name,Address_1,Address_2,City from FAMPAR order by Account_Code 
GO 

我在的ReportViewer形式负载VB.NET代码事件...

 ReportViewer.Reset() 
     Dim data As New AccMastDataSet 
     Dim ReportDataSource1 As ReportDataSource = New ReportDataSource 
     ReportDataSource1.Name = "AccMastDataSet" 
     ReportDataSource1.Value = rds 
     ReportViewer.LocalReport.DataSources.Clear() 
     ReportViewer.LocalReport.DataSources.Add(ReportDataSource1) 
     ReportViewer.LocalReport.ReportEmbeddedResource = "Report1.rdlc" 
     ReportViewer.LocalReport.ReportPath = "D:\netbonny\netbonnyproject\netbonnyproject\Reports\Report1.rdlc" 
     ReportViewer.RefreshReport() 

在此我得到列标题而不是数据，数据是存在的，在SQL Management Studio中检查...

另一个VB。 NET代码我想的是：

Dim data As New AccMastDataSet 
Dim abc = data.Tables("AccMast_AllDetail") 
Dim rds = New Microsoft.Reporting.WinForms.ReportDataSource("AccMastDataSet", data) 
ReportViewer.LocalReport.DataSources.Clear() 
ReportViewer.LocalReport.DataSources.Add(rds) 
ReportViewer.LocalReport.ReportEmbeddedResource = "netbonnyproject.Report1.rdlc" 
ReportViewer.RefreshReport() 

在这里，我得到错误：

我不知道它说什么......

帮我在这里。

Answer 1

当前，您已通过DataSet的新实例的DataTable来报告数据源。所以显然它应该是空的，你会看到没有任何数据的报告列标题。

您应该将数据加载到DataTable，然后将其传递给报告。

例如，如果您在表格上下降了TableAdapter，你可以使用这样的代码：

Me.Table1TableAdapter.Fill(Me.DataSet1.Table1) 
Dim rds = New Microsoft.Reporting.WinForms.ReportDataSource("DataSet1", Me.DataSet1.Table1) 

而且

Dim cn = "Connection String" 
Dim cmd = "Stored Procedre Name" 
Dim table = New DataTable() 
Using adapter As New SqlDataAdapter(cmd, cn) 
    adapter.SelectCommand.CommandType = CommandType.StoredProcedure 
    adapter.Fill(table) 
End Using 
Dim rds = New Microsoft.Reporting.WinForms.ReportDataSource("DataSet1", table)