[VB.NET] การทำคำสั่งทางคณิตศาสตร์กับฟิลด์ข้อมูล (DataColumn Expression)

thongkorn

DataColumn Expression เป็นการทำคำสั่งทางคณิตศาสตร์กับฟิลด์ข้อมูล (หรือหลัก) เราสามารถกำหนดนิพจน์สำหรับคอลัมน์ใดๆ หรือทำให้มีการคำนวณจากค่าคอลัมน์อื่นๆในแถวเดียวกัน หรือจากค่าคอลัมน์ของหลายๆแถวในตารางก็ได้ โดยตัวอย่างนี้แอดมินจะแสดงให้เห็นการคำนวณแบบง่ายๆ ด้วยการคูณราคาต่อหน่วย และรวมจำนวนระหว่างฟิล์ดข้อมูลเข้าด้วยกัน หรือการบวกจำนวนที่มีอยู่ในสต็อกกับจำนวนที่สั่งซื้อนั่นเอง ...


มาดูโค้ดกันเถอะ ...

1. #Region "ABOUT"
   
2. ' / --------------------------------------------------------------------------
   
3. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
4. ' / eMail : thongkorn@hotmail.com
   
5. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
6. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
7. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
8. ' / MORE: http://www.g2gnet.com/webboard
   
9. ' /
   
10. ' / Purpose: Data Column Expression with VB.NET (2010).
    
11. ' / Microsoft Visual Basic .NET (2010) + MS Access 2003+
    
12. ' /
    
13. ' / This is open source code under @CopyLeft by Thongkorn/Common Tubtimkrob.
    
14. ' / You can modify and/or distribute without to inform the developer.
    
15. ' / --------------------------------------------------------------------------
    
16. #End Region
    
17. 
    
18. Imports System.Data.OleDb
    
19. 
    
20. Public Class frmDataColumn
    
21. 
    
22.     ' / --------------------------------------------------------------------------
    
23.     Private Sub frmDataColumn_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
24.         '// https://docs.microsoft.com/en-us/dotnet/api/system.data.datacolumn.expression?view=netframework-4.7.2
    
25.         '// Gets or sets the expression used to filter rows, calculate the values in a column, or create an aggregate column.
    
26.         Call DataColumnExpressions()
    
27.     End Sub
    
28. 
    
29.     ' / --------------------------------------------------------------------------
    
30.     Sub DataColumnExpressions()
    
31.         Dim Conn As New System.Data.OleDb.OleDbConnection
    
32.         Dim DA As New System.Data.OleDb.OleDbDataAdapter
    
33.         Dim Cmd As New System.Data.OleDb.OleDbCommand
    
34.         Dim DC As DataColumn
    
35.         Dim DS As New DataSet
    
36.         '// Connect to the database
    
37.         Conn.ConnectionString = _
    
38.             " Provider=Microsoft.ACE.OLEDB.12.0; " & _
    
39.             " Data Source=" & _
    
40.             MyPath(Application.StartupPath) & "SampleDB.accdb;"
    
41.         Cmd.Connection = Conn
    
42.         DA.SelectCommand = Cmd
    
43. 
    
44.         '// Fill the DataTable
    
45.         Cmd.CommandText = "SELECT * FROM Products"
    
46.         DA.Fill(DS, "Products")
    
47. 
    
48.         '// Add on a few simple expression columns
    
49.         DC = New DataColumn("UnitPriceX2")
    
50.         DC.DataType = GetType(Double)
    
51.         DC.Expression = "UnitPrice * 2" '/ Column and numeric constant.
    
52.         DS.Tables("Products").Columns.Add(DC)
    
53. 
    
54.         DC = New DataColumn("UnitsInStockUpdate")
    
55.         DC.DataType = GetType(Integer)
    
56.         DC.Expression = "UnitsInStock" '/ Column UnitsInStock.
    
57.         DS.Tables("Products").Columns.Add(DC)
    
58. 
    
59.         DC = New DataColumn("UnitsOnOrderUpdate")
    
60.         DC.DataType = GetType(Integer)
    
61.         DC.Expression = "UnitsOnOrder" '/ Column UnitsOnOrder.
    
62.         DS.Tables("Products").Columns.Add(DC)
    
63. 
    
64.         '// Summary expression UnitsInStock + UnitsOnOrder.
    
65.         DC = New DataColumn("TotalStock")
    
66.         DC.DataType = GetType(Integer)
    
67.         DC.Expression = "UnitsInStock + UnitsOnOrder" '/ Add two columns.
    
68.         DS.Tables("Products").Columns.Add(DC)
    
69. 
    
70.         '// Text or String.
    
71.         'DC = New DataColumn("New Header")
    
72.         'DC.DataType = GetType(String)
    
73.         'DC.Expression = "ProductName + ' New Header'" '/ Column and string constant
    
74.         'DS.Tables("Products").Columns.Add(DC)
    
75.         '//
    
76.         dgvData.DataSource = DS.Tables("Products").DefaultView
    
77.         '// Organized DataGridView.
    
78.         Call SetupDataGridView(dgvData)
    
79.         '//
    
80.         DS.Dispose()
    
81.         DC.Dispose()
    
82.         DA.Dispose()
    
83.         Cmd.Dispose()
    
84.         Conn.Close()
    
85.     End Sub
    
86. 
    
87.     ' / --------------------------------------------------------------------------
    
88.     ' / Organized DataGridView.
    
89.     Private Sub SetupDataGridView(ByRef DGV As DataGridView)
    
90.         With DGV
    
91.             .Columns.Clear()
    
92.             .RowTemplate.Height = 26
    
93.             .AllowUserToOrderColumns = True
    
94.             .AllowUserToDeleteRows = False
    
95.             .AllowUserToAddRows = False
    
96.             .ReadOnly = True
    
97.             .MultiSelect = False
    
98.             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
    
99.             .Font = New Font("Tahoma", 8)
    
100.             .AlternatingRowsDefaultCellStyle.BackColor = Color.OldLace
     
101.             .DefaultCellStyle.SelectionBackColor = Color.SeaGreen
     
102.             '.AlternatingRowsDefaultCellStyle.BackColor = Color.LightYellow
     
103.             '.DefaultCellStyle.SelectionBackColor = Color.LightBlue
     
104.             '/ Auto size column width of each main by sorting the field.
     
105.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
     
106.             .AutoResizeColumns()
     
107. 
     
108.             Dim ColumnID As New DataGridViewTextBoxColumn
     
109.             With ColumnID
     
110.                 .DataPropertyName = "ProductID"
     
111.                 .Name = "ProductID"
     
112.                 .HeaderText = "ProductID"
     
113.                 .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
     
114.             End With
     
115.             .Columns.Add(ColumnID)
     
116. 
     
117.             Dim Column1 As New DataGridViewTextBoxColumn
     
118.             With Column1
     
119.                 .DataPropertyName = "ProductName"
     
120.                 .Name = "ProductName"
     
121.                 .HeaderText = "ProductName"
     
122.                 .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
     
123.             End With
     
124.             .Columns.Add(Column1)
     
125. 
     
126.             Dim Column2 As New DataGridViewTextBoxColumn
     
127.             With Column2
     
128.                 .DataPropertyName = "UnitPrice"
     
129.                 .Name = "UnitPrice"
     
130.                 .HeaderText = "UnitPrice"
     
131.                 .DefaultCellStyle.Format = "N2"
     
132.             End With
     
133.             .Columns.Add(Column2)
     
134. 
     
135.             Dim Column3 As New DataGridViewTextBoxColumn
     
136.             With Column3
     
137.                 .DataPropertyName = "UnitPriceX2"
     
138.                 .Name = "UnitPriceX2"
     
139.                 .HeaderText = "UnitPrice x 2"
     
140.                 .DefaultCellStyle.Format = "N2"
     
141.             End With
     
142.             .Columns.Add(Column3)
     
143. 
     
144.             Dim Column4 As New DataGridViewTextBoxColumn
     
145.             With Column4
     
146.                 .DataPropertyName = "UnitsInStockUpdate"
     
147.                 .Name = "UnitsInStock"
     
148.                 .HeaderText = "Units In Stock"
     
149.                 .DefaultCellStyle.Format = "N2"
     
150.             End With
     
151.             .Columns.Add(Column4)
     
152. 
     
153.             Dim Column5 As New DataGridViewTextBoxColumn
     
154.             With Column5
     
155.                 .DataPropertyName = "UnitsOnOrderUpdate"
     
156.                 .Name = "UnitsOnOrder"
     
157.                 .HeaderText = "Units On Order"
     
158.                 .DefaultCellStyle.Format = "N2"
     
159.             End With
     
160.             .Columns.Add(Column5)
     
161. 
     
162.             Dim Column6 As New DataGridViewTextBoxColumn
     
163.             With Column6
     
164.                 .DataPropertyName = "TotalStock"
     
165.                 .Name = "TotalStock"
     
166.                 .HeaderText = "Total Stock"
     
167.                 .DefaultCellStyle.Format = "N2"
     
168.             End With
     
169.             .Columns.Add(Column6)
     
170. 
     
171.             '// For Column and string constant.
     
172.             'Dim Column7 As New DataGridViewTextBoxColumn
     
173.             'With Column7
     
174.             '.DataPropertyName = "New Header"
     
175.             '.Name = "New Header"
     
176.             '.HeaderText = "New Header"
     
177.             '.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
     
178.             'End With
     
179.             '.Columns.Add(Column7)
     
180.         End With
     
181. 
     
182.         '// Columns Alignment.
     
183.         For i = 2 To 6
     
184.             With DGV.Columns(i)
     
185.                 .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
     
186.                 .HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
     
187.             End With
     
188.         Next
     
189.     End Sub
     
190. 
     
191.     ' / --------------------------------------------------------------------------------
     
192.     ' / Get my project path
     
193.     ' / AppPath = C:\My Project\bin\debug
     
194.     ' / Replace "\bin\debug" with ""
     
195.     ' / Return : C:\My Project\
     
196.     Function MyPath(AppPath As String) As String
     
197.         '/ MessageBox.Show(AppPath);
     
198.         AppPath = AppPath.ToLower()
     
199.         '/ Return Value
     
200.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
     
201.         '// If not found folder then put the \ (BackSlash) at the end.
     
202.         If Microsoft.VisualBasic.Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
     
203.     End Function
     
204. End Class

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

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

teerapong

มี link download ไหมครับ ผมหาไม่เจอ

thongkorn

teerapong ตอบกลับเมื่อ 2019-3-1 18:45
มี link download ไหมครับ ผมหาไม่เจอ

ขอโทษทีครับ ไม่ได้เช็คไฟล์ ตอนนี้เรียบร้อยแล้วครับ

teerapong

thongkorn ตอบกลับเมื่อ 2019-3-2 11:52
ขอโทษทีครับ ไม่ได้เช็คไฟล์ ตอนนี้เรียบร้อยแล้วครับ

ขอบคุณครับ