Select Case

[David Engle]

I have created a form with 2 combo boxes. The purpose of the form is to
export CR9 reports to selected types of formats (rpt, doc,xls, etc) and
choose the destination for the report (mail, file, etc.). What is the best
method to state if selectedindex 1 and selectedindex 2 are selected so that
then the export methods is carried out according to the users wishes.

Thanks in advance!

Using VB.Net 2003

Private Sub btnOK_Click(ByV al sender As System.Object, ByVal e As
System.EventArg s) Handles btnOK.Click

Dim FileType As String


Select Case Me.cbFormat.Sel ectedIndex

Case 0 'PDF Format

FileType = ".pdf"

Dim crDiskFileDesti nationOptions As New DiskFileDestina tionOptions

crDiskFileDesti nationOptions.D iskFileName = ExportRptPath & "\" & subject &
FileType

Dim crExportOptions As ExportOptions = rpt.ExportOptio ns

With crExportOptions

..DestinationOp tions = crDiskFileDesti nationOptions

..ExportDestina tionType = ExportDestinati onType.DiskFile

..ExportFormatT ype = ExportFormatTyp e.PortableDocFo rmat

End With

'execute conversion to PDF

Case 1

FileType = ".rpt"

Dim crDiskFileDesti nationOptions As New DiskFileDestina tionOptions

crDiskFileDesti nationOptions.D iskFileName = ExportRptPath & "\" & subject &
FileType

Dim crExportOptions As ExportOptions = rpt.ExportOptio ns

With crExportOptions

..DestinationOp tions = crDiskFileDesti nationOptions

..ExportDestina tionType = ExportDestinati onType.DiskFile

..ExportFormatT ype = ExportFormatTyp e.CrystalReport

End With

Case 2

FileType = ".xls"

Dim crDiskFileDesti nationOptions As New DiskFileDestina tionOptions

Dim excelFormatOpts As New ExcelFormatOpti ons

Dim crExportOptions As ExportOptions = rpt.ExportOptio ns

'crDiskFileDest inationOptions. DiskFileName = "c:\winaeros\re ports\test.xls"

crExportOptions .ExportDestinat ionType = ExportDestinati onType.DiskFile

crDiskFileDesti nationOptions.D iskFileName = ExportRptPath & "\" & subject &
FileType

crExportOptions .DestinationOpt ions = crDiskFileDesti nationOptions

crExportOptions .ExportFormatTy pe = ExportFormatTyp e.Excel

excelFormatOpts .ExcelTabHasCol umnHeadings = True

crExportOptions .FormatOptions = excelFormatOpts

Case 3

FileType = ".xls"

Dim crDiskFileDesti nationOptions As New DiskFileDestina tionOptions

crDiskFileDesti nationOptions.D iskFileName = ExportRptPath & "\" & subject &
FileType

Dim crExportOptions As ExportOptions = rpt.ExportOptio ns

Dim excelFormatOpts As New ExcelFormatOpti ons

With crExportOptions

..DestinationOp tions = crDiskFileDesti nationOptions

..ExportDestina tionType = ExportDestinati onType.DiskFile

..ExportFormatT ype = ExportFormatTyp e.ExcelRecord

End With

excelFormatOpts .ExcelTabHasCol umnHeadings = False

crExportOptions .FormatOptions = excelFormatOpts

Case 4

FileType = ".doc"

Dim crDiskFileDesti nationOptions As New DiskFileDestina tionOptions

crDiskFileDesti nationOptions.D iskFileName = ExportRptPath & "\" & subject &
FileType

Dim crExportOptions As ExportOptions = rpt.ExportOptio ns

With crExportOptions

..DestinationOp tions = crDiskFileDesti nationOptions

..ExportDestina tionType = ExportDestinati onType.DiskFile

..ExportFormatT ype = ExportFormatTyp e.WordForWindow s

End With

End Select

Select Case Me.cbDestinatio n.SelectedIndex

' Case 0 'Application

'Case 1 'Disk File

'' Allow the user to save a file.

'Dim ofd As New SaveFileDialog

'Dim dr As DialogResult

'dr = ofd.ShowDialog( Me)

'If dr <> dr.Cancel Then

'Else

'MsgBox(ofd.Fil eName)

'End If

'Case 2 'Exchange Folder

Case 3 'Outlook

'Mail Procedure

Dim olApp As Outlook.Applica tion

Dim olMailMessage As Outlook.MailIte m

olApp = New Outlook.Applica tion

olMailMessage = olApp.CreateIte m(Outlook.OlIte mType.olMailIte m)

olMailMessage.A ttachments.Add( ExportRptPath & "\" & subject & FileType)

olMailMessage.S ubject = subject

olMailMessage.D isplay()

olMailMessage = Nothing

End Select

rpt.Export()

Me.Close()

End Sub