I am developing a .aspx page that will serve as a date-range picker to
pass a date-range into another .aspx that has a CrystalReportsV iewer.
So far I have two textboxes: txtBeginDate & txtEndDate and a Calendar
control: Calendar1, and a btnOK.... can anyone get me started on the
base logic? I want upon opening the .aspx for the txtBeginDate to
default to today's date and the txtEndDate to default to 30 days from
today's date. So I'm thinking, and this is just a start:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
'today's date
txtBeginDate =
'today's date + 30
txtEndDate =
End Sub
Private Sub btnOK_Click(ByV al sender As System.Object, ByVal e As
System.EventArg s) Handles btnOK.Click
Server.Transfer ("CrystalReport Form.aspx")
'need here to pass the values of the calendar form to the
CrystalReportsF orm
End Sub
Private Sub Calendar1_Selec tionChanged(ByV al sender As
System.Object, ByVal e As System.EventArg s) Handles
Calendar1.Selec tionChanged
'txtBeginDate =
'txtEndDate =
End Sub
Thanks for any help! Brock
pass a date-range into another .aspx that has a CrystalReportsV iewer.
So far I have two textboxes: txtBeginDate & txtEndDate and a Calendar
control: Calendar1, and a btnOK.... can anyone get me started on the
base logic? I want upon opening the .aspx for the txtBeginDate to
default to today's date and the txtEndDate to default to 30 days from
today's date. So I'm thinking, and this is just a start:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
'today's date
txtBeginDate =
'today's date + 30
txtEndDate =
End Sub
Private Sub btnOK_Click(ByV al sender As System.Object, ByVal e As
System.EventArg s) Handles btnOK.Click
Server.Transfer ("CrystalReport Form.aspx")
'need here to pass the values of the calendar form to the
CrystalReportsF orm
End Sub
Private Sub Calendar1_Selec tionChanged(ByV al sender As
System.Object, ByVal e As System.EventArg s) Handles
Calendar1.Selec tionChanged
'txtBeginDate =
'txtEndDate =
End Sub
Thanks for any help! Brock