[VB.NET] การค้นหาข้อมูลจาก DataTable เพื่อนำรายการเข้าสู่ตารางกริด (จำลองการขายสินค้า)

thongkorn

โค้ดชุดนี้เสมือนจำลองการทำรายการขายสินค้า แต่ยังไม่มีการเชื่อมต่อกับฐานข้อมูลใดๆ โดยอาศัย DataTable เป็นตารางข้อมูลสมมุติ เพื่อจะได้ไม่พะวงในเรื่องระบบฐานข้อมูลมากเกินไป แต่ให้โฟกัสมาที่ วิธีการคิด และกระบวนการขั้นตอนของการค้นหารายการสินค้า (Flow Control) เพื่อที่จะนำมันมาใส่ไว้ในตารางกริด (DataGridView) โดยยึดตามหลักความเป็นจริงคือ ผู้ใช้งานจะยิงรหัสบาร์โค้ด (ยาวหลายหลัก) จากนั้นเครื่องอ่านจะส่งรหัส ASCII 13 หรือ Enter เพื่อไปทำการค้นหาข้อมูล แต่ในการทดสอบเราจะป้อนตัวเลข 01 - 15 ตามด้วย Enter แทน เพื่อให้ง่ายและรวดเร็ว

การค้นหาข้อมูล หากพบข้อมูลที่อยู่ในตารางข้อมูล (DataTable) ต่อไปคือต้องวนรอบค้นหาข้อมูลรายการสินค้าที่ต้องการในตารางกริดเสียก่อน หากเจอข้อมูล ก็กำหนดให้จำนวนสินค้าในแถวนั้นๆ เพิ่มขึ้นอีก 1 และกำหนด Flag (หรือ Boolean) บอกให้รู้ว่าเจอแล้ว จะได้ไม่ต้องไปเพิ่มรายการแถวสินค้าเข้าไปใหม่ และกระโดดออกจากการวนรอบในตารางกริด ... พอวนรอบแถวในตารางกริดจนหมด หากหาไม่เจอ ก็ต้องสร้างรายการแถวสินค้าตัวใหม่เข้ามาในตารางกริด โดยอาศัย Flag จากที่กำหนดไว้ก่อนหน้าเป็นเงื่อนไข ... การที่จะทำความเข้าใจในวิธีการขั้นตอนนี้ได้ดี คุณจะต้องนำ Debugger เข้ามาช่วยเหลือด้วยครับ

โค้ดในส่วนของการค้นหาข้อมูล ...

1.     ' / --------------------------------------------------------------------------------
   
2.     ' / การค้นหาข้อมูลในช่อง TextBox
   
3.     Private Sub txtSearch_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtSearch.KeyPress
   
4.         '// เมื่อกดคีย์ ENTER เพื่อเริ่มต้นการค้นหาข้อมูล
   
5.         If e.KeyChar = Chr(13) Then
   
6.             e.Handled = True    '// ปิดเสียง
   
7.             '/ สร้าง DataTable สมมุติขึ้นมา
   
8.             Dim DT As DataTable = GetDataTable()
   
9.             '/ ค้นหาข้อมูลจาก DataTable แล้วรับค่ามาใส่ไว้ใน DataRow
   
10.             '/ การค้นหาข้อมูลแบบ String จะต้องใส่เครื่องหมาย Single Quote ครอบเอาไว้ เช่น ProductID = '01'
    
11.             Dim r() As DataRow = DT.Select(" ProductID = " & "'" & txtSearch.Text.Trim & "'")
    
12.             '// หากพบข้อมูลใน DataTable
    
13.             If r.Count > 0 Then
    
14.                 '/ ตัวแปรบูลีน Flag แจ้งการค้นหาข้อมูลในตารางกริด (True = พบรายการในแถว, False = ไม่พบ)
    
15.                 Dim blnExist As Boolean = False
    
16.                 '/ ต้องค้นหาข้อมูลจากตารางกริดก่อน เพื่อค้นหาว่ามีรายการสินค้าเดิมหรือไม่?
    
17.                 '/ หากในตารางกริดยังไม่มีแถวรายการ ก็จะข้าม For Loop นี้ไปเพิ่มรายการใหม่ทันที (ครั้งแรกที่ยังไม่มีข้อมูลในตารางกริด)
    
18.                 For iRow As Integer = 0 To dgvData.RowCount - 1
    
19.                     '/ ทดสอบด้วย Primary Key r(0).Item(0) หรือ Product ID r(0).Item(1) ก็ได้
    
20.                     If r(0).Item(0) = dgvData.Rows(iRow).Cells(0).Value Then
    
21.                         '/ เมื่อพบรายการเดิม ก็ให้เพิ่มจำนวนขึ้น 1
    
22.                         dgvData.Rows(iRow).Cells(3).Value += 1
    
23.                         lblLastPrice.Text = "Last Price: " & CDbl(dgvData.Rows(iRow).Cells(4).Value).ToString("0.00")
    
24.                         '/ Flag แจ้งว่าพบข้อมูลเดิมแล้ว
    
25.                         blnExist = True
    
26.                         '/ เมื่อเจอสินค้าเดิมในตารางกริดแล้ว ไม่ว่าจะอยู่แถวลำดับที่เท่าไหร่ ก็ให้ออกจาก For Loop การค้นหาได้เลย
    
27.                         '/ เพราะรายการสินค้าใดๆ จะต้องมีอยู่เพียงแค่รายการเดียว ไม่ต้องเสียเวลาวนรอบกลับไปทำให้จนครบจำนวนแถว
    
28.                         Exit For
    
29.                     End If
    
30.                 Next
    
31.                 '/ กรณีที่พบสินค้าในตารางกริด กำหนด blnExist = True ทำให้ Not True = False จะทำให้ข้ามเงื่อนไขนี้ออกไป
    
32.                 '/ กรณีที่ไม่พบข้อมูลสินค้าเดิมในตารางกริด กำหนด blnExist = False ทำให้ Not False = True เพิ่มรายการสินค้าแถวใหม่เข้าไปในตารางกริดได้
    
33.                 If Not blnExist Then
    
34.                     '/ Primary Key, Product ID, Product Name, Quantity, UnitPrice, Total
    
35.                     dgvData.Rows.Add(r(0).Item(0), r(0).Item(1), r(0).Item(2), "1", Format(CDbl(r(0).Item(3).ToString), "0.00"), "0.00")
    
36.                     lblLastPrice.Text = "Last Price: " & CDbl(r(0).Item(3)).ToString("0.00")
    
37.                 End If
    
38.                 '/ หากไม่ใช้ NOT ก็จะต้องเขียนโปรแกรมแบบนี้
    
39.                 '/ If blnExist = True Then
    
40.                 '/     ไม่ต้องทำอะไร
    
41.                 '/ Else
    
42.                 '/     ทำคำสั่งเพิ่มรายการ
    
43.                 '/ End If
    
44.                 '// คำนวณผลรวมใหม่
    
45.                 Call CalSumTotal()
    
46.                 DT.Dispose()
    
47.             End If
    
48.             txtSearch.Clear()
    
49.             txtSearch.Focus()
    
50.         End If
    
51.     End Sub

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

มาดูโค้ดฉบับเต็มกันเถอะ ...

1. Public Class frmDetailDataGridView
   
2. 
   
3.     ' / --------------------------------------------------------------------------------
   
4.     '/ Don't forget to set Form has KeyPreview = True
   
5.     Private Sub frmDetailDataGridView_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
   
6.         Select Case e.KeyCode
   
7.             Case Keys.F8
   
8.                 '/ Remove Row
   
9.                 Call DeleteRow("btnDelRow")
   
10.         End Select
    
11.     End Sub
    
12. 
    
13.     ' / --------------------------------------------------------------------------------
    
14.     Private Sub frmDetailDataGridView_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
15.         Me.KeyPreview = True  '/ สามารถกดปุ่มฟังค์ชั่นคีย์ลงในฟอร์มได้
    
16.         Call InitializeGrid()
    
17.         '/
    
18.         txtSumTotal.ReadOnly = True
    
19.         txtSumTotal.Text = "0.00"
    
20.         lblLastPrice.Text = ""
    
21.     End Sub
    
22. 
    
23.     ' / --------------------------------------------------------------------------------
    
24.     Private Sub InitializeGrid()
    
25.         With dgvData
    
26.             .RowHeadersVisible = False
    
27.             .AllowUserToAddRows = False
    
28.             .AllowUserToDeleteRows = False
    
29.             .AllowUserToResizeRows = False
    
30.             .MultiSelect = False
    
31.             .ReadOnly = False
    
32.             .RowTemplate.MinimumHeight = 27
    
33.             .RowTemplate.Height = 27
    
34.             '/ Columns Specified
    
35.             '/ Index = 0
    
36.             .Columns.Add("PK", "Primary Key")
    
37.             With .Columns("PK")
    
38.                 .ReadOnly = True
    
39.                 .DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
    
40.                 .Visible = True 'False '/ ปกติหลัก Primary Key จะต้องถูกซ่อนไว้
    
41.             End With
    
42.             '/ Index = 1
    
43.             .Columns.Add("ProductID", "Product ID")
    
44.             .Columns("ProductID").ReadOnly = True
    
45.             '/ Index = 2
    
46.             .Columns.Add("ProductName", "Product Name")
    
47.             .Columns("ProductName").ReadOnly = True
    
48.             '/ Index = 3
    
49.             .Columns.Add("Quantity", "Quantity")
    
50.             .Columns("Quantity").ValueType = GetType(Integer)
    
51.             '/ Index = 4
    
52.             .Columns.Add("UnitPrice", "Unit Price")
    
53.             .Columns("UnitPrice").ValueType = GetType(Double)
    
54.             '/ Index = 5
    
55.             .Columns.Add("Total", "Total")
    
56.             .Columns("Total").ValueType = GetType(Double)
    
57.             .Font = New Font("Tahoma", 11)
    
58.             '/ Total Column
    
59.             With .Columns("Total")
    
60.                 .ReadOnly = True
    
61.                 .DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
    
62.                 .DefaultCellStyle.ForeColor = Color.Blue
    
63.                 .DefaultCellStyle.Font = New Font(dgvData.Font, FontStyle.Bold)
    
64.             End With
    
65.             '// เพิ่มปุ่มลบ (Index = 6)
    
66.             Dim btnDelRow As New DataGridViewButtonColumn
    
67.             dgvData.Columns.Add(btnDelRow)
    
68.             With btnDelRow
    
69.                 .HeaderText = "Delete F8"
    
70.                 .Text = "Delete"
    
71.                 .UseColumnTextForButtonValue = True
    
72.                 .Width = 60
    
73.                 .ReadOnly = True
    
74.                 .HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
    
75.                 .SortMode = DataGridViewColumnSortMode.NotSortable  '/ Not sort order but can click header for delete row.
    
76.             End With
    
77. 
    
78.             '/ Alignment MiddleRight only columns 3 to 5
    
79.             For i As Byte = 3 To 5
    
80.                 '/ Header Alignment
    
81.                 .Columns(i).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
    
82.                 '/ Cell Alignment
    
83.                 .Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
    
84.             Next
    
85.             '/ Auto size column width of each main by sorting the field.
    
86.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    
87.             '/ Adjust Header Styles
    
88.             With .ColumnHeadersDefaultCellStyle
    
89.                 .BackColor = Color.RoyalBlue
    
90.                 .ForeColor = Color.White
    
91.                 .Font = New Font("Tahoma", 11, FontStyle.Bold)
    
92.             End With
    
93.             .ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
    
94.             .ColumnHeadersHeight = 36
    
95.             '/ กำหนดให้ EnableHeadersVisualStyles = False เพื่อให้ยอมรับการเปลี่ยนแปลงสีพื้นหลังของ Header
    
96.             .EnableHeadersVisualStyles = False
    
97.         End With
    
98. 
    
99.     End Sub
    
100. 
     
101.     ' / --------------------------------------------------------------------------------
     
102.     '// SAMPLE DATATABLE
     
103.     Private Function GetDataTable() As DataTable
     
104.         Dim DT As New DataTable
     
105.         '// Add Columns
     
106.         With DT.Columns
     
107.             .Add("PK", GetType(Integer))
     
108.             .Add("ProductID", GetType(String))
     
109.             .Add("ProductName", GetType(String))
     
110.             .Add("UnitPrice", GetType(Double))
     
111.         End With
     
112.         '// Add Rows
     
113.         With DT.Rows
     
114.             '// PK, ProductID, ProductName, UnitPrice
     
115.             .Add(1, "01", "Classic Checken", "45.00")
     
116.             .Add(2, "02", "Mexicana", "85.00")
     
117.             .Add(3, "03", "Lemon Shrimp", "110.00")
     
118.             .Add(4, "04", "Bacon", "90.00")
     
119.             .Add(5, "05", "Spicy Shrimp", "120.00")
     
120.             .Add(6, "06", "Tex Supreme", "80.00")
     
121.             .Add(7, "07", "Fish", "100.00")
     
122.             .Add(8, "08", "Pepsi Small", "20.00")
     
123.             .Add(9, "09", "Coke Small", "20.00")
     
124.             .Add(10, "10", "7Up Small", "20.00")
     
125.             .Add(11, "11", "มอคค่า", "85.00")
     
126.             .Add(12, "12", "อเมริกาโน่", "95.00")
     
127.             .Add(13, "13", "เอ็กซเพรสโซ่", "115.00")
     
128.             .Add(14, "14", "ชานมไข่มุก", "45.00")
     
129.             .Add(15, "15", "เหล้าเป็ก", "99.00")
     
130.         End With
     
131.         Return DT
     
132.     End Function
     
133. 
     
134.     ' / --------------------------------------------------------------------------------
     
135.     ' / การค้นหาข้อมูลในช่อง TextBox
     
136.     Private Sub txtSearch_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtSearch.KeyPress
     
137.         '// เมื่อกดคีย์ ENTER เพื่อเริ่มต้นการค้นหาข้อมูล
     
138.         If e.KeyChar = Chr(13) Then
     
139.             e.Handled = True    '// ปิดเสียง
     
140.             '/ สร้าง DataTable สมมุติขึ้นมา
     
141.             Dim DT As DataTable = GetDataTable()
     
142.             '/ ค้นหาข้อมูลจาก DataTable แล้วรับค่ามาใส่ไว้ใน DataRow
     
143.             '/ การค้นหาข้อมูลแบบ String จะต้องใส่เครื่องหมาย Single Quote ครอบเอาไว้ เช่น ProductID = '01'
     
144.             Dim r() As DataRow = DT.Select(" ProductID = " & "'" & txtSearch.Text.Trim & "'")
     
145.             '// หากพบข้อมูลใน DataTable
     
146.             If r.Count > 0 Then
     
147.                 '/ ตัวแปรบูลีน Flag แจ้งการค้นหาข้อมูลในตารางกริด (True = พบรายการในแถว, False = ไม่พบ)
     
148.                 Dim blnExist As Boolean = False
     
149.                 '/ ต้องค้นหาข้อมูลจากตารางกริดก่อน เพื่อค้นหาว่ามีรายการสินค้าเดิมหรือไม่?
     
150.                 '/ หากในตารางกริดยังไม่มีแถวรายการ ก็จะข้าม For Loop นี้ไปเพิ่มรายการใหม่ทันที (ครั้งแรกที่ยังไม่มีข้อมูลในตารางกริด)
     
151.                 For iRow As Integer = 0 To dgvData.RowCount - 1
     
152.                     '/ ทดสอบด้วย Primary Key r(0).Item(0) หรือ Product ID r(0).Item(1) ก็ได้
     
153.                     If r(0).Item(0) = dgvData.Rows(iRow).Cells(0).Value Then
     
154.                         '/ เมื่อพบรายการเดิม ก็ให้เพิ่มจำนวนขึ้น 1
     
155.                         dgvData.Rows(iRow).Cells(3).Value += 1
     
156.                         lblLastPrice.Text = "Last Price: " & CDbl(dgvData.Rows(iRow).Cells(4).Value).ToString("0.00")
     
157.                         '/ Flag แจ้งว่าพบข้อมูลเดิมแล้ว
     
158.                         blnExist = True
     
159.                         '/ เมื่อเจอสินค้าเดิมในตารางกริดแล้ว ไม่ว่าจะอยู่แถวลำดับที่เท่าไหร่ ก็ให้ออกจาก For Loop การค้นหาได้เลย
     
160.                         '/ เพราะรายการสินค้าใดๆ จะต้องมีอยู่เพียงแค่รายการเดียว ไม่ต้องเสียเวลาวนรอบกลับไปทำให้จนครบจำนวนแถว
     
161.                         Exit For
     
162.                     End If
     
163.                 Next
     
164.                 '/ กรณีที่พบสินค้าในตารางกริด กำหนด blnExist = True ทำให้ Not True = False จะทำให้ข้ามเงื่อนไขนี้ออกไป
     
165.                 '/ กรณีที่ไม่พบข้อมูลสินค้าเดิมในตารางกริด กำหนด blnExist = False ทำให้ Not False = True เพิ่มรายการสินค้าแถวใหม่เข้าไปในตารางกริดได้
     
166.                 If Not blnExist Then
     
167.                     '/ Primary Key, Product ID, Product Name, Quantity, UnitPrice, Total
     
168.                     dgvData.Rows.Add(r(0).Item(0), r(0).Item(1), r(0).Item(2), "1", Format(CDbl(r(0).Item(3).ToString), "0.00"), "0.00")
     
169.                     lblLastPrice.Text = "Last Price: " & CDbl(r(0).Item(3)).ToString("0.00")
     
170.                 End If
     
171.                 '/ หากไม่ใช้ NOT ก็จะต้องเขียนโปรแกรมแบบนี้
     
172.                 '/ If blnExist = True Then
     
173.                 '/     ไม่ต้องทำอะไร
     
174.                 '/ Else
     
175.                 '/     ทำคำสั่งเพิ่มรายการ
     
176.                 '/ End If
     
177.                 '// คำนวณผลรวมใหม่
     
178.                 Call CalSumTotal()
     
179.                 DT.Dispose()
     
180.             End If
     
181.             txtSearch.Clear()
     
182.             txtSearch.Focus()
     
183.         End If
     
184.     End Sub
     
185. 
     
186.     ' / --------------------------------------------------------------------------------
     
187.     ' / Calcualte sum of Total (Column Index = 5)
     
188.     ' / ทำทุกครั้งที่มีการเพิ่มหรือลบแถวรายการ และมีการเปลี่ยนแปลงค่าในเซลล์ Quantity, UnitPrice
     
189.     Private Sub CalSumTotal()
     
190.         txtSumTotal.Text = "0.00"
     
191.         '/ วนรอบตามจำนวนแถวที่มีอยู่ปัจจุบัน
     
192.         For i As Integer = 0 To dgvData.RowCount - 1
     
193.             '/ หลักสุดท้ายของตารางกริด = [จำนวน x ราคา]
     
194.             dgvData.Rows(i).Cells(5).Value = Format(dgvData.Rows(i).Cells(3).Value * dgvData.Rows(i).Cells(4).Value, "#,##0.00")
     
195.             '/ นำค่าจาก Total มารวมกันเพื่อแสดงผลในสรุปผลรวม (x = x + y)
     
196.             txtSumTotal.Text = Format(CDbl(txtSumTotal.Text) + CDbl(dgvData.Rows(i).Cells(5).Value), "#,##0.00")
     
197.         Next
     
198.     End Sub
     
199. 
     
200.     ' / --------------------------------------------------------------------------------
     
201.     ' / โปรแกรมย่อยในการลบแถวรายการที่เลือกออกไป
     
202.     Private Sub DeleteRow(ByVal ColName As String)
     
203.         If dgvData.RowCount = 0 Then Return
     
204.         '/ ColName เป็นชื่อของหลัก Index = 6 ของตารางกริด (ไปดูที่โปรแกรมย่อย InitializeGrid)
     
205.         If ColName = "btnDelRow" Then
     
206.             '// ลบรายการแถวที่เลือกออกไป
     
207.             dgvData.Rows.Remove(dgvData.CurrentRow)
     
208.             '/ เมื่อแถวรายการถูกลบออกไป ต้องไปคำนวณหาค่าผลรวมใหม่
     
209.             Call CalSumTotal()
     
210.         End If
     
211.         txtSearch.Focus()
     
212.     End Sub
     
213. 
     
214.     Private Sub dgvData_CellClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvData.CellClick
     
215.         Select Case e.ColumnIndex
     
216.             '// Delete Button
     
217.             Case 6
     
218.                 'MsgBox(("Row : " + e.RowIndex.ToString & "  Col : ") + e.ColumnIndex.ToString)
     
219.                 Call DeleteRow("btnDelRow")
     
220.         End Select
     
221.     End Sub
     
222. 
     
223.     ' / --------------------------------------------------------------------------------
     
224.     ' / After you press Enter
     
225.     Private Sub dgvData_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvData.CellEndEdit
     
226.         '/ เกิดการเปลี่ยนแปลงค่าในหลัก Index ที่ 3 หรือ 4
     
227.         Select Case e.ColumnIndex
     
228.             Case 3, 4 '/ Column Index = 3 (Quantity), Column Index = 4 (UnitPrice)
     
229.                 '/ Quantity
     
230.                 '/ การดัก Error กรณีมีค่า Null Value ให้ใส่ค่า 0 ลงไปแทน
     
231.                 If IsDBNull(dgvData.Rows(e.RowIndex).Cells(3).Value) Then dgvData.Rows(e.RowIndex).Cells(3).Value = "0"
     
232.                 Dim Quantity As Integer = dgvData.Rows(e.RowIndex).Cells(3).Value
     
233.                 '/ UnitPrice
     
234.                 '/ If Null Value
     
235.                 If IsDBNull(dgvData.Rows(e.RowIndex).Cells(4).Value) Then dgvData.Rows(e.RowIndex).Cells(4).Value = "0.00"
     
236.                 Dim UnitPrice As Double = dgvData.Rows(e.RowIndex).Cells(4).Value
     
237.                 dgvData.Rows(e.RowIndex).Cells(4).Value = Format(CDbl(dgvData.Rows(e.RowIndex).Cells(4).Value), "0.00")
     
238. 
     
239.                 '/ Quantity x UnitPrice
     
240.                 dgvData.Rows(e.RowIndex).Cells(5).Value = CDbl((Quantity * UnitPrice).ToString("#,##0.00"))
     
241.                 '/ Calculate Summary
     
242.                 Call CalSumTotal()
     
243.         End Select
     
244.     End Sub
     
245. 
     
246.     ' / --------------------------------------------------------------------------------
     
247.     Private Sub dgvData_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles dgvData.EditingControlShowing
     
248.         Select Case dgvData.Columns(dgvData.CurrentCell.ColumnIndex).Name
     
249.             ' / Can use both Colume Index or Field Name
     
250.             Case "Quantity", "UnitPrice"
     
251.                 '/ Stop and Start event handler
     
252.                 RemoveHandler e.Control.KeyPress, AddressOf ValidKeyPress
     
253.                 AddHandler e.Control.KeyPress, AddressOf ValidKeyPress
     
254.         End Select
     
255.     End Sub
     
256. 
     
257.     ' / --------------------------------------------------------------------------------
     
258.     Private Sub ValidKeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
     
259.         Dim tb As TextBox = sender
     
260.         Select Case dgvData.CurrentCell.ColumnIndex
     
261.             Case 3  ' Quantity is Integer
     
262.                 Select Case e.KeyChar
     
263.                     Case "0" To "9"   ' digits 0 - 9 allowed
     
264.                     Case ChrW(Keys.Back)    ' backspace allowed for deleting (Delete key automatically overrides)
     
265. 
     
266.                     Case Else ' everything else ....
     
267.                         ' True = CPU cancel the KeyPress event
     
268.                         e.Handled = True ' and it's just like you never pressed a key at all
     
269.                 End Select
     
270. 
     
271.             Case 4  ' UnitPrice is Double
     
272.                 Select Case e.KeyChar
     
273.                     Case "0" To "9"
     
274.                         ' Allowed "."
     
275.                     Case "."
     
276.                         ' can present "." only one
     
277.                         If InStr(tb.Text, ".") Then e.Handled = True
     
278. 
     
279.                     Case ChrW(Keys.Back)
     
280.                         '/ Return False is Default value
     
281. 
     
282.                     Case Else
     
283.                         e.Handled = True
     
284. 
     
285.                 End Select
     
286.         End Select
     
287.     End Sub
     
288. 
     
289.     Private Sub frmDetailDataGridView_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
290.         Me.Dispose()
     
291.         GC.SuppressFinalize(Me)
     
292.         Application.Exit()
     
293.     End Sub
     
294. 
     
295. End Class

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

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

sepumma

ขอบคุณอาจารย์มากๆๆครับ