zoukankan      html  css  js  c++  java
  • 水晶报表参数编程示例代码

     Imports CrystalDecisions.Shared
       Imports CrystalDecisions.CrystalReports.Engine
       Private Const RPT_NAME As String = "CustomerOrders.rpt"
       Private Const PARAMETER_FIELD_NAME As String = "CustomerID"
       Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       '在此处放置初始化页的用户代码
       ' 设置报表源
       report = New ReportDocument()
       report.Load(GetReportPath(RPT_NAME))
       ' 设置参数
       crvOrders.ParameterFieldInfo = GetParameterInfo(CType(Session("list"), ListItemCollection))
       crvOrders.ReportSource = report
       ' 显示报表
       crvOrders.DataBind()
       End Sub
      
       '----------------------------------------------------------------
       ' Function GetParameterInfo:
       ' 从复选框列表获取参数字段信息
       ' Returns:
       ' 参数字段
       ' Parameters:
       ' [in] list: 复选框列表
       ' Throws:
       '
       ' PreConditions:
       '
       '----------------------------------------------------------------
       Private Function GetParameterInfo(ByVal list As ListItemCollection) As ParameterFields
       Dim item As ListItem
       Dim isEmpty As Boolean = True
       Dim itemCount As Integer = 0
       ' 声明将参数传递给查看器控件所需的变量。
       Dim paramFields As New ParameterFields()
       Dim paramField As New ParameterField()
       Dim discreteVal As New ParameterDiscreteValue()
       ' 参数是具有多个值的离散参数。
       ' 设置参数字段的名称,它必须和报表中的参数相符。
       paramField.ParameterFieldName = PARAMETER_FIELD_NAME
       For Each item In list
       If item.Selected Then
       isEmpty = False
       itemCount += 1
       ' 设置一个离散值并将其传递给该参数
       discreteVal.Value = item.Value
       paramField.CurrentValues.Add(discreteVal)
       ' 新建一个离散值
       discreteVal = New ParameterDiscreteValue()
       End If
       Next
       If isEmpty Then
       For Each item In list
       ' 设置一个离散值并将其传递给该参数
       discreteVal.Value = item.Value
       paramField.CurrentValues.Add(discreteVal)
       ' 新建一个离散值
       discreteVal = New ParameterDiscreteValue()
       Next
       End If
       ' 将该参数添加到参数字段集合。
       paramFields.Add(paramField)
       GetParameterInfo = paramFields
       End Function
  • 相关阅读:
    ubuntu实时显示网速cpu占用和内存占用率
    删除以....开头的所有文件
    0.0.....1 至 0.99.......9 之间正则
    引入腾讯视频播放,可控制是否暂停播放
    解决微信小程序textarea层级太高遮挡其他组件的问题
    查看某分支推送记录
    小程序下载canvas生成图片
    微信小程序企业付款到个人
    秒 转化为 时:分:秒 ------- 类似倒计时
    iOS--崩溃日志的格式化分析---格式化crash日志
  • 原文地址:https://www.cnblogs.com/ddlzq/p/1612725.html
Copyright © 2011-2022 走看看