小区物业管理系统-缴费凭据

小区物业管理系统-缴费凭据

采用报表打印形式

Imports Microsoft.Reporting.WinForms


Public Class JiaoFeiDan
    Dim pno As String
    Public Sub New(u As String)
        InitializeComponent()
        pno = u
        'MsgBox(pno)
    End Sub
    Private Sub JiaoFeiDan_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.ReportViewer1.RefreshReport()

        Dim DataSet3 As DataSet = PaySelect(pno)

        ReportViewer1.LocalReport.ReportPath = "JiaoFei.rdlc"

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

        ReportViewer1.LocalReport.DataSources.Clear()
        ReportViewer1.LocalReport.DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("DataSet3", DataSet3.Tables(0)))
        ReportViewer1.RefreshReport()

        PayUpdata2(pno)
    End Sub
End Class