[VB.NET] การทำสรุปรายงานตัวเลขของ PageFooter ในแต่ละหน้า ActiveReports .NET

thongkorn

โค้ดชุดนี้แอดมินขอนำเสนอ การทำสรุปรายงานตัวเลขของ PageFooter ในแต่ละหน้าว่าหน้านี้มียอดจำนวนเงินเท่าไหร่ และรวมยอดจำนวนเงินทุกหน้าที่ผ่านมา ลักษณะคล้ายๆกับมีการพิมพ์รายงานหลายๆหน้า แล้วทำการยกยอดมา แต่อันนี้ให้ไปใส่เพิ่มเติมเอง เพราะสามารถคำนวณหาได้ได้จาก ยอดรวมทุกหน้า - ยอดเฉพาะหน้านั้นๆ ... อนึ่ง!!! โค้ดชุดนี้จะต้องอาศัยทั้งการ Design Time และ Run Time มาใช้งานคู่กัน โดยให้ดูจากภาพ ...

ตัวอย่างข้อมูลเพื่อทำการสร้าง DataTable เอาไว้เป็น DataSource ...

1.     '// Sample Data
   
2.     Private Function FillDataSample() As DataTable
   
3.         Dim table As New DataTable
   
4.         table.Columns.Add("Col1")
   
5.         table.Columns.Add("Col2")
   
6.         Dim row As String()
   
7.         For i = 0 To 9
   
8.             '// Sample data.
   
9.             row = New String() {i + 1, Format(100 * (i + 1), "#,##0.00")}
   
10.             table.Rows.Add(row)
    
11.         Next
    
12.         Return table
    
13.     End Function

คัดลอกไปที่คลิปบอร์ด

การกำหนดฟิลด์ให้กับชุดข้อมูล (เสมือนมาจากตารางข้อมูล) ...


การสร้างฟิลด์ที่ใช้ในการคำนวณผลลัพธ์ เพื่อหาค่ายอดรวมในแต่ละหน้า ... (DataInitialize - ActiveReports)

1.         '/ Add Calculated Fields and see properties setting too.
   
2.         Me.Fields.Add("SumPrice")
   
3.         Me.Fields.Add("SumTotal")

คัดลอกไปที่คลิปบอร์ด

Design Time กับการกำหนดฟิลด์ผลรวมในแต่ละหน้า (PageTotal) ...


Design Time กับการกำหนดฟิลด์ผลรวมของทุกๆหน้าแบบ Group ...


มาดูโค้ดบนฟอร์มหลัก ...

1. Public Class frmAR6Summary
   
2. 
   
3.     Private Sub frmAR6Summary_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
4.         Dim DT As New DataTable
   
5.         '// Bound Data into DataTable.
   
6.         DT = FillDataSample()
   
7.         DS = New DataSet
   
8.         DS.Tables.Add(DT)
   
9.         dgvData.DataSource = DT
   
10.         '//
    
11.         Dim rpt1 As New arPrintSummary
    
12.         rpt1.Run()
    
13.         Me.Viewer1.Document = rpt1.Document
    
14.         Me.Viewer1.ReportViewer.Zoom = 1
    
15.     End Sub
    
16. 
    
17.     '// Sample Data
    
18.     Private Function FillDataSample() As DataTable
    
19.         Dim table As New DataTable
    
20.         table.Columns.Add("Col1")
    
21.         table.Columns.Add("Col2")
    
22.         Dim row As String()
    
23.         For i = 0 To 9
    
24.             '// Sample data.
    
25.             row = New String() {i + 1, Format(100 * (i + 1), "#,##0.00")}
    
26.             table.Rows.Add(row)
    
27.         Next
    
28.         Return table
    
29.     End Function
    
30. 
    
31. End Class

คัดลอกไปที่คลิปบอร์ด

มาดูโค้ดบน ActiveReports .NET ... ขั้นตอนการทำงานจะเริ่มจาก ReportStart แล้วไปที่ DataInitialize จากนั้นก็ทำการ FetchData เพื่อทำการพิมพ์ ...

1. Imports DataDynamics.ActiveReports
   
2. Imports DataDynamics.ActiveReports.Document
   
3. Imports System.Data.OleDb
   
4. 
   
5. Public Class arPrintSummary
   
6.     Private ItemNo As Integer = 0
   
7.     Private _RowCounter As Integer
   
8. 
   
9.     Private Sub arPrintSummary_DataInitialize(sender As Object, e As System.EventArgs) Handles Me.DataInitialize
   
10.         '/ Add all the columns from the DataSet as Fields for the report
    
11.         Dim i As Integer
    
12.         For i = 0 To (DS.Tables(0).Columns.Count) - 1
    
13.             Me.Fields.Add(DS.Tables(0).Columns(i).ColumnName)
    
14.         Next i
    
15.         '/ Add Calculated Fields and see properties setting too.
    
16.         Me.Fields.Add("SumPrice")
    
17.         Me.Fields.Add("SumTotal")
    
18.     End Sub
    
19. 
    
20.     Private Sub arPrintSummary_FetchData(sender As Object, eArgs As DataDynamics.ActiveReports.ActiveReport.FetchEventArgs) Handles Me.FetchData
    
21.         If _RowCounter = DS.Tables(0).Rows.Count Then
    
22.             '/ If the row counter has reached the end of the data then
    
23.             '/ set the eArgs.EOF flag to true and exit the procedure
    
24.             eArgs.EOF = True
    
25.             Return
    
26.         Else
    
27. 
    
28.             '/ Populate the fields collection from the DataSet
    
29.             Dim i As Integer
    
30.             For i = 0 To (DS.Tables(0).Columns.Count) - 1
    
31.                 Me.Fields(DS.Tables(0).Columns(i).ColumnName).Value = DS.Tables(0).Rows(_RowCounter)(i)
    
32.             Next
    
33.             Me.Fields("SumPrice").Value = CDbl(DS.Tables(0).Rows(_RowCounter)(1))
    
34.             Me.Fields("SumTotal").Value = CDbl(DS.Tables(0).Rows(_RowCounter)(1))
    
35.             'Advance Row Counter
    
36.             eArgs.EOF = False
    
37.             _RowCounter += 1
    
38.         End If
    
39.     End Sub
    
40. 
    
41.     Private Sub arPrintSummary_ReportStart(sender As Object, e As System.EventArgs) Handles Me.ReportStart
    
42.         ' การตั้งค่าหน้ากระดาษ
    
43.         With PageSettings
    
44.             ' หน่วยวัดเป็นนิ้ว
    
45.             .Margins.Left = CmToInch(1) ' แปลงค่า 1.0 ซม. เป็นนิ้ว
    
46.             .Margins.Right = 0.1
    
47.             .Margins.Top = 0.5
    
48.             .Margins.Bottom = 0.2
    
49.             '// กรณีใช้กระดาษขนาด A5
    
50.             '.Orientation = PageOrientation.Landscape
    
51.             '.PaperKind = Drawing.Printing.PaperKind.A5
    
52.             '//
    
53.             '/  กรณีที่กำหนดขนาดกระดาษเองเพื่อทำการทดสอบ
    
54.             .PaperKind = Drawing.Printing.PaperKind.Custom
    
55.             '/ ตั้งค่ากระดาษแนวตั้ง
    
56.             .Orientation = PageOrientation.Portrait
    
57.             .PaperWidth = CmToInch(21) ' 21 ซม.
    
58.             '// ปรับความสูงให้สั้นลงเพื่อทดสอบการพิมพ์ในแต่ละหน้า และยอดสรุป
    
59.             .PaperHeight = CmToInch(10)
    
60.         End With
    
61.         '// เคลียร์ค่าต่างๆของ TextBox ก่อนการพิมพ์
    
62.         txtItem.Text = ""
    
63.         txtUnitPrice.Text = "0.00"
    
64.         txtSumPrice.Text = "0.00"
    
65.         txtSumTotal.Text = "0.00"
    
66.     End Sub
    
67. 
    
68. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010) + ActiveReports .NET ได้ที่นี่ ...

bxhobby

ขอบคุณมากครับ

prawpun

ขอบคุณมากคะ

OUDONE

อจาร ใส่ color page ทำยังไงครับ

thongkorn

OUDONE ตอบกลับเมื่อ 2022-10-14 23:17
อจาร ใส่ color page ทำยังไงครับ

มันเป็นยังไงครับ Color Page หากหมายถึงสีพื้นก็เลือกจาก Background ได้เลยครับ

OUDONE

thongkorn ตอบกลับเมื่อ 2022-10-15 11:54
มันเป็นยังไงครับ Color Page หากหมายถึงสีพื้นก็เลือกจาก Background ได้เลยครับ

ขอบคุณครับ

OUDONE

color page ครับ สีขาวครับ

OUDONE

ขอบคุณครับอาจารย์ ที่มอบสิ่งดีดีให้