| Imports CrystalDecisions.CrystalReports.Engine
Public Class Form1
Private 印刷ドキュメント As ReportDocument = New ReportDocument()
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles ToolStripButton1.Click
Dim reportPath As String = _
"C:\user\vs\CrystalReport_01\CrystalReport_01\CrystalReport1.rpt"
印刷ドキュメント.Load(reportPath)
Me.CrystalReportViewer1.SelectionFormula = "{社員マスタ.性別} = 0"
Me.CrystalReportViewer1.ReportSource = 印刷ドキュメント
End Sub
End Class
| |