如何用VB.NET中的数据表替换数据集用于水晶报表 [英] How to replace dataset with datatable for crystal report in VB.NET

问题描述

Hello All，

我们收到问题'

所需的报告需要更多信息

'。



我已经搜索了，解决方法是用dataTable替换数据集，但是我还没有得到关于如何做同样的教程。

下面是我的代码在vb.net中。

 myRrpt.Load（Server.MapPath（ 〜\Reporting\CrystalReport15.rpt））
 
 connect_EWS.ConnectionString = Constr_EWS 
  Dim  con 作为 新 SqlCommand 
  Dim  query 作为 字符串 =  来自Report_BT的SELECT *，其中Number = @ num 
 con.CommandText = query 
 con.Connection = connect_EWS 
 con.Parameters。 AddWithVa lue（  @ num，txtNumber.Text.Trim）
 connect_EWS.Open（） 
 '  Dim dsCustomers As New ISAE_BankTransfer  
  Dim  da  As  新 SqlDataAdapter（con）
 
  Dim  dsCustomers  As  DataSet4 = 新 DataSet4 
 
 da.Fill（dsCustomers，  Report_BT）
 connect_EWS .Close（）
 
 myRrpt.SetDataSource（dsCustomers）
 CrystalReportViewer1.DisplayPage =  True  
 
 CrystalReportViewer1 .ReportSource = myRrpt 

有人可以帮我出来

使用最新的vb.net水晶报告软件

提前谢谢



我尝试了什么：



有人可以帮帮我

解决方案

根据： Microsoft文档 - 数据集类 [ ^ ]

Quote：

DataSet，它是一个 - 从数据源检索的数据的内存缓存是ADO.NET体系结构的主要组件。 DataSet包含一组DataTable对象，您可以使用DataRelation对象将它们相互关联。

以下示例来自此处： Microsoft Docs - DataSet.Tables Property [ ^ ]

 私有  Sub  PrintRows（ ByVal  dataSet  As  DataSet）
  Dim 表 As  DataTable 
  Dim 行 As  DataRow 
  Dim 列 As  DataColumn 
  ' 对于DataSet中的每个表，打印行值。  
 对于 每个表  dataSet.Tables 
 < span class =code-keyword>对于 每个行在 table.Rows 
 对于 每个列在表中。列
 Console.WriteLine（行（列））
 下一步列
 下一步 row 
 下一页表
 结束 子 

Hello All,
Am getting the issue '

the report requested requires further information

'.

I've searched and the solution is to replace dataset with a dataTable, however i haven't been able to get a tutorial on how to do same.
Below is my code in vb.net.

myRrpt.Load(Server.MapPath("~\Reporting\CrystalReport15.rpt"))

connect_EWS.ConnectionString = Constr_EWS
Dim con As New SqlCommand
Dim query As String = "SELECT * from Report_BT where Number=@num"
con.CommandText = query
con.Connection = connect_EWS
con.Parameters.AddWithValue("@num", txtNumber.Text.Trim)
connect_EWS.Open()
'  Dim dsCustomers As New ISAE_BankTransfer
Dim da As New SqlDataAdapter(con)

Dim dsCustomers As DataSet4 = New DataSet4

da.Fill(dsCustomers, "Report_BT")
connect_EWS.Close()

myRrpt.SetDataSource(dsCustomers)
CrystalReportViewer1.DisplayPage = True

CrystalReportViewer1.ReportSource = myRrpt

can someone please help me out
using latest crystal reporting software for vb.net
thanks in advance

What I have tried:

can someone please help me out

解决方案

According to: Microsoft Docs - DataSet Class[^]

Quote:

The DataSet, which is an in-memory cache of data retrieved from a data source, is a major component of the ADO.NET architecture. The DataSet consists of a collection of DataTable objects that you can relate to each other with DataRelation objects.

And the example below is from here: Microsoft Docs - DataSet.Tables Property[^]

Private Sub PrintRows(ByVal dataSet As DataSet)
   Dim table As DataTable
   Dim row As DataRow
   Dim column As DataColumn
   ' For each table in the DataSet, print the row values.
   For Each table in dataSet.Tables
      For Each row In table.Rows
         For Each column in table.Columns
            Console.WriteLine(row(column))
         Next column
      Next row
   Next table
End Sub

这篇关于如何用VB.NET中的数据表替换数据集用于水晶报表的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！