VB.Net การสร้างรายงานตอนที่ 2

     การสร้างรายงานในตอนที่ 2 นี้จะนำเสนอวิธีการกรองข้อมูลตามช่วงข้อมูลที่กำหนด แล้วนำมาออกรายงาน เราจะได้เรียนรู้วิธีการสร้าง Quey ภายใต้ DataSet และการเรียกใช้ ตลอดจนการอ้างถึงรายงานจากภายนอกด้วยการเขียนโปรแกรม เพื่อนำรายงานมาแสดงในคอนโทรล ReportViewer
     หากยังไม่เคยดูการสร้างรายงาน ตอนที่ 1 กรุณากลับไปศึกษาให้เข้าใจก่อนแล้วกลับมาดูวีดีโอนี้อีกครั้ง




โค้ดคำสั่ง VB.Net

Imports Microsoft.Reporting.WinForms

Public Class Form2
      Private adapter As dsABACUSTableAdapters.ABAssetTableAdapter = New   _
                              dsABACUSTableAdapters.ABAssetTableAdapter()
      Private table As New dsABACUS.ABAssetDataTable()
      Private MyNewDataSource As New ReportDataSource("DataSet1",  _
                                                                 DirectCast(table, DataTable))
      Private Sub btnRun_Click(ByVal sender As System.Object,  _
                                                 ByVal e As System.EventArgs) _
                                                 Handles btnRun.Click
           adapter.FillByType(table, txtFrom.Text.ToString.Trim, txtTo.Text.ToString.Trim)
           Me.ReportViewer1.LocalReport.ReportPath = ".\Reports\rptABAsset.rdlc"
           Me.ReportViewer1.LocalReport.DataSources.Clear()
           Me.ReportViewer1.LocalReport.DataSources.Add(MyNewDataSource)
           Me.ReportViewer1.LocalReport.Refresh()
           Me.ReportViewer1.RefreshReport()
     End Sub
End Class

สวัสดี สงกรานต์ปีนี้ ไม่ต้องไปฟ้องครู "อังคณา" .... น่ะ