使用的命名空间有:
using System;
using System.Drawing;
using System.Collections;
using System.ComponentModel;
using System.Windows.Forms;
using System.Data;
这样只要用户选择了报表就能显示出来。
vb代码
Private Sub btnSelectReport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelectReport.Click
Dim dlg As New OpenFileDialog()
dlg.Title = "Select Crystal Reports file"
dlg.Filter = "Crystal Reports (*.rpt)|*.rpt|All Files (*.*)|*.*"
dlg.InitialDirectory = "C:\Program Files\Microsoft Visual Studio.NET\Crystal Reports\Samples\Reports"
If (dlg.ShowDialog() = DialogResult().OK) Then
Me.Cursor = Cursors.WaitCursor
crystalReportViewer().ReportSource = dlg.FileName
file = dlg.FileName
Me.Cursor = Cursors.Default
End If
End Sub