水晶报表参数编程示例代码
2003-11-16 10:45
411 查看
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
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
相关文章推荐
- 水晶报表参数编程示例代码
- 水晶报表参数编程示例代码
- [转]水晶报表参数编程示例代码[http://blog.csdn.net/xwdd129/archive/2006/05/29/760672.aspx]
- 水晶报表参数编程示例代码
- 水晶报表参数编程示例代码
- 水晶报表参数编程示例代码
- 水晶报表参数编程示例代码
- 水晶报表参数编程示例代码
- [转]c#编程更改水晶报表中公式字段示例代码 [http://blog.csdn.net/xwdd129/archive/2006/05/29/760661.aspx]
- 水晶报表自定义参数传递个人示例代码
- 水晶报表参数传递代码 同时 可以翻页
- 掌控于股掌之间-代码中传参数、传公式、操作水晶报表里的所有对象
- asp.net水晶报表参数字段在代码中赋值的方法
- asp.net水晶报表参数字段在代码中赋值的方法
- 水晶报表参数字段在代码中赋值
- 水晶报表参数字段在代码中赋值
- [转]水晶报表的宽度调整方法(设计器、代码调整、rpt文件属性)
- 使用eclipse在jsp上显示水晶报表(六)参数的简单实用用法
- C++调用Lua编程环境搭建及测试代码示例
- 编程更改公式字段示例代码