从数据表的值生成报告 [英] generate report from values of data table

问题描述

再次问好，有人可以帮我这个代码吗？

  Dim  cnn 正如 SqlConnection 
  Dim  connectionString  As  字符串 
  Dim  sql 作为 字符串 
 connectionString =  数据源= ----- \ SQLEXPRESS，49172 ;初始目录= irsdb;用户ID = hposadmin;密码= 1zones; 
 cnn = 新 SqlConnection（connectionString）
 
 cnn.Open（）
 sql =  选择folioid，quantity，foodorder，price，total from foodordertbl其中folioid = + folioid 
  Dim  dscmd  As  新 SqlDataAdapter（sql，cnn）
  Dim  ds 正如 新 DataSet1 
 dscmd.Fill（ds，  foodordertbl）
 
  Dim  cryRpt  As  新 ReportDocument ' 您创建的报告。 
 cryRpt.SetDataSource（ds.Tables（ 0 ））
 cryRpt.Load（   C：\ Users \Frontliner0102 \Desktop\\\
ewRSVSYSTEM\ReservationSys\ReservationSys\ReservationSys\Reports\orderrpt.rpt ）
 
  Dim  crParameterFieldDefinitions  As  ParameterFieldDefinitions 
  Dim  crParameterFieldDefinition  As  ParameterFieldDefinition 
  Dim  crParameterValues 作为 新 ParameterValues 
  Dim  crParameterDiscreteValue  As  新 ParameterDiscreteValue 
  Dim  param  As  新 ParameterDiscreteValue 
 
 
 crParameterDiscreteValue.Value = TextBox5.Text 
 crParameterFieldDefinitions = cryRpt.DataDefinition.ParameterFields 
 crParameterFieldDefinition = crParameterFieldDefinitions.Item（ < span class =code-string> folioid）
 crParameterValues = crParameterFieldDefinition.CurrentValues 
 
 
 
 crParameterValues.Clear（）
 crParameterValues.Add（crParameterDiscreteValue）
 crParameterFieldDefinition.ApplyCurrentValues（crParameterValues）
 
 CrystalReportViewer1.ReportSource = cryRpt 
 CrystalReportViewer1.Refresh（）

i想要选择我的表中的值是foodordertbl与我有的folioid。

解决方案

你在这附近有alogic错误

  Dim  cryRpt 作为 新 ReportDocument '   
 cryRpt.SetDataSource（ds.Tables（ 0 ））' 此行应保存在以下cryRpt.Load（）语句之后 
 cryRpt.Load（  C：\ Users \Frontliner0102 \Desktop\\\
ewRSVSYSTEM \\ \\ ReservationSys\ReservationSys\ReservationSys\Reports\orderrpt.rpt）
 

所以首先加载水晶报告然后将数据源设置为

 cryRpt.Load（  C：\ Users \Frontliner0102 \Desktop\\\
ewRSVSYSTEM\ReservationSys\ReservationSys\ReservationSys\Reports\orderrpt.rpt）
 
 cryRpt.SetDataSource（ds.Tables（ 0 ））

如果存在问题，请进一步报告。

hello again,,can someone help me with this code,please?

Dim cnn As SqlConnection
        Dim connectionString As String
        Dim sql As String
        connectionString = "data source=-----\SQLEXPRESS,49172; Initial Catalog=irsdb;User Id=hposadmin;Password=1zones;"
        cnn = New SqlConnection(connectionString)

        cnn.Open()
        sql = "select folioid,quantity,foodorder,price,total from foodordertbl where folioid=" + folioid
        Dim dscmd As New SqlDataAdapter(sql, cnn)
        Dim ds As New DataSet1
        dscmd.Fill(ds, "foodordertbl")

        Dim cryRpt As New ReportDocument 'The report you created.
        cryRpt.SetDataSource(ds.Tables(0))
        cryRpt.Load("C:\Users\Frontliner0102\Desktop\newRSVSYSTEM\ReservationSys\ReservationSys\ReservationSys\Reports\orderrpt.rpt")

        Dim crParameterFieldDefinitions As ParameterFieldDefinitions
        Dim crParameterFieldDefinition As ParameterFieldDefinition
        Dim crParameterValues As New ParameterValues
        Dim crParameterDiscreteValue As New ParameterDiscreteValue
        Dim param As New ParameterDiscreteValue


        crParameterDiscreteValue.Value = TextBox5.Text
        crParameterFieldDefinitions = cryRpt.DataDefinition.ParameterFields
        crParameterFieldDefinition = crParameterFieldDefinitions.Item("folioid")
        crParameterValues = crParameterFieldDefinition.CurrentValues



        crParameterValues.Clear()
        crParameterValues.Add(crParameterDiscreteValue)
        crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)

        CrystalReportViewer1.ReportSource = cryRpt
        CrystalReportViewer1.Refresh()

i want to select the values from my table which is "foodordertbl" with the folioid i have.

解决方案

You Have alogic error here near line

Dim cryRpt As New ReportDocument '
cryRpt.SetDataSource(ds.Tables(0)) ' this line should be kept after  cryRpt.Load() statement of below
       cryRpt.Load("C:\Users\Frontliner0102\Desktop\newRSVSYSTEM\ReservationSys\ReservationSys\ReservationSys\Reports\orderrpt.rpt")

So first load crystal report and then set datasource as

cryRpt.Load("C:\Users\Frontliner0102\Desktop\newRSVSYSTEM\ReservationSys\ReservationSys\ReservationSys\Reports\orderrpt.rpt")

 cryRpt.SetDataSource(ds.Tables(0)) 

Report further if problem Exists.

这篇关于从数据表的值生成报告的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！