Working with Parameters with Crystal Reports and ASP.NET 2.0 - Passing the value to Multiple Crystal Report Parameters dynamically: source code
(Page 6 of 6 )
In the previous section, we added a parameter named "p_OrderDate_Discrete_Range" to the report. Now it is time to access the report (say, get a list of orders) based on the user-specified range of dates.
Let us modify the web page so that it looks like the following (Fig 14):
The source for the above page design is as follows:
<form id="form1" runat="server">
<div>
<asp:Label ID="lbl" runat="server" Text="Order Date:"></asp:Label>
<asp:TextBox ID="txtParticularOrderDate" runat="server"></asp:TextBox>
<asp:Button ID="btnShow" runat="server" Text="Show" /><br />
<asp:Label ID="Label1" runat="server" Text="Order Date
From:"></asp:Label>
<asp:TextBox ID="txtOrderDateFrom" runat="server"></asp:TextBox>
<asp:Label ID="Label2" runat="server" Text="Order Date To:"></asp:Label>
<asp:TextBox ID="txtOrderDateTo" runat="server"></asp:TextBox>
<asp:Button ID="btnRangeShow" runat="server" Text="Show" />
<CR:CrystalReportViewer ID="CrystalReportViewer1" runat="server"
AutoDataBind="true" DisplayGroupTree="False" DisplayToolbar="False"
EnableDatabaseLogonPrompt="False" EnableParameterPrompt="False"
Height="1055px" ReuseParameterValuesOnRefresh="True" Width="789px" />
</div>
</form>
The following is the code for the "Show" button:
Protected Sub btnShow_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles btnShow.Click
.
.
.
Dim ParamCurrentValues As New ParameterValues
Dim p_OrderDate_Value As New ParameterDiscreteValue
p_OrderDate_Value.Value = Me.txtParticularOrderDate.Text
ParamCurrentValues.Add(p_OrderDate_Value)
Dim ParamFields As ParameterFieldDefinitions =
rep.DataDefinition.ParameterFields
Dim p_OrderDate As ParameterFieldDefinition = ParamFields
("p_OrderDate_Discrete_Range")
p_OrderDate.ApplyCurrentValues(ParamCurrentValues)
End Sub
Following is the code for the "Range Show" button:
Protected Sub btnRangeShow_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles btnRangeShow.Click
.
.
.
Dim ParamCurrentValues As New ParameterValues
Dim p_OrderDate_Value As New ParameterRangeValue
p_OrderDate_Value.StartValue = Me.txtOrderDateFrom.Text
p_OrderDate_Value.EndValue = Me.txtOrderDateTo.Text
ParamCurrentValues.Add(p_OrderDate_Value)
rep.DataDefinition.ParameterFields
("p_OrderDate_Discrete_Range").ApplyCurrentValues(ParamCurrentValues)
Me.CrystalReportViewer1.ReportSource = rep
Me.CrystalReportViewer1.DataBind()
End Sub
I hope you enjoyed the article and any suggestions, bugs, errors, enhancements etc. are highly appreciated at http://jagchat.spaces.live.com
| DISCLAIMER: The content provided in this article is not warranted or guaranteed by Developer Shed, Inc. The content provided is intended for entertainment and/or educational purposes in order to introduce to the reader key ideas, concepts, and/or product reviews. As such it is incumbent upon the reader to employ real-world tactics for security and implementation of best practices. We are not liable for any negative consequences that may result from implementing any information covered in our articles or tutorials. If this is a hardware review, it is not recommended to open and/or modify your hardware. |
