小区物业管理系统-报表打印

小区物业管理系统-报表打印

新建报表

点击创建新报表







点击完成即可




完成即可

显示报表

Public Class System_pro_BaoBiao
    Public Sub New(u As String)
        InitializeComponent()

    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs)

        Dim ProDataSet As DataSet = ProSel()

        ReportViewer1.LocalReport.ReportPath = "E:\VbWorkSpace\PropertyManagementSystem\PropertyManagementSystem\view\System\Report1.rdlc"

        '注意：创建或修改都要将 "Report1.rdlc"文件拷贝到bin\debug下即可！

        ReportViewer1.LocalReport.DataSources.Clear()
        ReportViewer1.LocalReport.DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("ProDtataSet", ProDataSet.Tables(0)))
        ReportViewer1.RefreshReport()
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub System_pro_BaoBiao_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.ReportViewer1.RefreshReport()
        Dim ProDataSet As DataSet = ProSel()

        ReportViewer1.LocalReport.ReportPath = "E:\VbWorkSpace\PropertyManagementSystem\PropertyManagementSystem\view\System\Report1.rdlc"

        '注意：创建或修改都要将 "Report1.rdlc"文件拷贝到bin\debug下即可！

        ReportViewer1.LocalReport.DataSources.Clear()
        ReportViewer1.LocalReport.DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("ProDtataSet", ProDataSet.Tables(0)))
        ReportViewer1.RefreshReport()
    End Sub
End Class