16,721
社区成员




Private Sub Formwhkzkz_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
me.ksppTableAdapter.Fill(Me.tyksDataSet.kspp)
Me.KscjppTableAdapter1.Fill(Me.tyksDataSet.kscjpp)
Me.ReportViewer1.RefreshReport()
Me.ReportViewer1.LocalReport.DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("tyksDataSet_kspp", Me.tyksDataSet.Tables("kspp")))
AddHandler Me.ReportViewer1.LocalReport.SubreportProcessing, AddressOf DemoSubreportProcessingEventHandler
ReportViewer1.LocalReport.EnableExternalImages = True
Me.ReportViewer1.SetDisplayMode(Microsoft.Reporting.WinForms.DisplayMode.PrintLayout)
Me.ReportViewer1.ZoomMode = Microsoft.Reporting.WinForms.ZoomMode.FullPage
Me.ReportViewer1.ZoomPercent = 100
'
End Sub
Public Sub DemoSubreportProcessingEventHandler(ByVal sender As Object, _
ByVal e As SubreportProcessingEventArgs)
e.DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("tyksDataSet_kscjpp", tyksDataSet.Tables("kscjpp")))
End Sub