Imports CrystalDecisions.CrystalReports.Engine
Public Class Conclusion
Inherits System.Web.UI.Page
Protected Sub btnCallReport1_Click(sender As Object, e As EventArgs) Handles btnCallReport1.Click
Dim rpt As New ReportDocument()
rpt.Load(Server.MapPath("rptViewAll.rpt"))
Me.crvAll.ReportSource = rpt
End Sub
Protected Sub rdoButton1_CheckedChanged(sender As Object, e As EventArgs) Handles rdoButton1.CheckedChanged
If rdordoButton1.Checked = True Then
txtDateFrom1.Enabled = True
txtDateTo1.Enabled = True
btnCallReport1.Enabled = True
txtDateFrom2.Enabled = False
txtDateTo2.Enabled = False
btnCallReport2.Enabled = False
Else
txtDateFrom1.Enabled = False
txtDateTo1.Enabled = False
btnCallReport1.Enabled = False
txtDateFrom2.Enabled = True
txtDateTo2.Enabled = True
btnCallReport2.Enabled = True
End If
End Sub
Protected Sub rdoButton2_CheckedChanged(sender As Object, e As EventArgs) Handles rdordoButton2.CheckedChanged
rdordoButton1_CheckedChanged(sender, e)
End Sub