Protected Sub Page_Load(ByVal sender As Object,ByVal e As System.EventArgs) Handles Me.Load Try p_strNendo = Session("p_strNendo") 'ﾌｫｰﾑ･CrystalReportViewerのｻｲｽﾞを設定 'crvShiwakecho.Height = Common_AppSet.g_intHRptViewerHeight 'crvShiwakecho.Width = Common_AppSet.g_intHRptViewerWidth 'ﾚﾎﾟｰﾄﾋﾞｭｰｱに表示 Dim objDtbl As DataTable = Session("dsShiwakecho").Tables("dt21_Shiwakecho") Dim objCR As ReportDocument = New ReportDocument() objCR.Load(Common_AppSet.g_strReportTemplate & "rpt21_Shiwakecho.rpt") objCR.SetDataSource(objDtbl) 'crvShiwakecho.ToolPanelView = ToolPanelViewType.None crvShiwakecho.ReportSource = objCR 'ﾊﾟﾗﾒｰﾀﾌｨｰﾙﾄﾞに値を設定 Dim pfFields As New CrystalDecisions.Shared.ParameterFields Dim pfNendo As New CrystalDecisions.Shared.ParameterField Dim pvNendo As New CrystalDecisions.Shared.ParameterDiscreteValue pfNendo.ParameterFieldName = "prmNendo" pvNendo.Value = p_strNendo pfNendo.CurrentValues.Add(pvNendo) pfFields.Add(pfNendo) crvShiwakecho.ParameterFieldInfo = pfFields Dim opts As CrystalDecisions.Shared.DiskFileDestinationOptions = New CrystalDecisions.Shared.DiskFileDestinationOptions() opts.DiskFileName = "C:\PPPWebLoader\234.xls" Dim myExportOptions As CrystalDecisions.Shared.ExportOptions = objCR.ExportOptions myExportOptions.DestinationOptions = opts myExportOptions.ExportDestinationType = CrystalDecisions.Shared.ExportDestinationType.DiskFile Response.ContentType = "application/vnd.ms-excel" myExportOptions.ExportFormatType = CrystalDecisions.Shared.ExportFormatType.Excel For i As Integer = 0 To pfFields.Count - 1 objCR.SetParameterValue(pfFields.Item(i).Name,pfFields.Item(i).CurrentValues) Next objCR.Export() Response.End() Catch ex As Exception Throw New Exception("仕訳帳の出力に失敗しました。" & vbCrLf & ex.StackTrace & vbCrLf & ex.Message) End Try End Sub
