[VB.NET] การสร้าง DataTable และจำลองข้อมูลให้กับตารางกริด

thongkorn

DataTable ก็คือตารางข้อมูลนั่นเอง โดยเกิดจากการสร้างฟิลด์ข้อมูล (Field) หรือหลัก (Column) ที่เราต้องการจัดเก็บ เช่น ชื่อพนักงาน ตำแหน่ง สังกัด เป็นต้น โดยแหล่งที่มาของข้อมูลมาได้หลายทาง เช่น ฐานข้อมูล, เอกสาร XML/JSon, ข้อมูลไฟล์ Excel หรือแม้แต่การสร้างขึ้นมาเอง สำหรับบทความชุดนี้จะใช้ชุดการจำลองข้อมูล แทนการเชื่อมต่อฐานข้อมูล ประโยชน์ก็คือเราสามารถนำข้อมูลตัวอย่างไปใช้งานทดสอบโปรแกรมต่างๆได้อย่างรวดเร็ว เช่น การทำรายงาน การสร้างปุ่มคำสั่งตามจำนวนรายการที่มีอยู่ เป็นต้น ...


ตัวอย่างของ DataTable ... หากเราเลือกในแต่ละหลัก มันคือ DataColumn หากเราเลือกในแต่ละแถว มันคือ DataRow ...



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

1. Imports System.Data
   
2. 
   
3. Public Class frmDataTable
   
4. 
   
5.     Private Sub frmDataTable_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
6.         Call SetupGridView(dgvData)
   
7.     End Sub
   
8. 
   
9.     Private Sub SetupGridView(ByRef DGV As DataGridView)
   
10.         With DGV
    
11.             .RowHeadersVisible = True
    
12.             .AllowUserToAddRows = False
    
13.             .AllowUserToDeleteRows = False
    
14.             .AllowUserToResizeRows = False
    
15.             .MultiSelect = False
    
16.             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
    
17.             .ReadOnly = True
    
18.             '// Data rows
    
19.             .Font = New Font("Tahoma", 10)
    
20.             .RowTemplate.MinimumHeight = 27
    
21.             .RowTemplate.Height = 27
    
22.             '// Column Header
    
23.             .ColumnHeadersHeight = 30
    
24.             .ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
    
25.             '// Autosize Column
    
26.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    
27.             '// Even-Odd Color
    
28.             .AlternatingRowsDefaultCellStyle.BackColor = Color.LightGreen
    
29.             .DefaultCellStyle.SelectionForeColor = Color.White
    
30.             '// Header
    
31.             With .ColumnHeadersDefaultCellStyle
    
32.                 .BackColor = Color.Navy
    
33.                 .ForeColor = Color.White
    
34.                 .Font = New Font(DGV.Font, FontStyle.Bold)
    
35.             End With
    
36.         End With
    
37.     End Sub
    
38. 
    
39.     Private Sub btnDataTable_Click(sender As System.Object, e As System.EventArgs) Handles btnDataTable.Click
    
40.         '/ เรียกไปยังฟังค์ชั่น GetDataTable จากนั้นมันจะ Return DataTable กลับมาให้กับ DataSource ของ DataGridView
    
41.         dgvData.DataSource = GetDataTable()
    
42.     End Sub
    
43. 
    
44.     Function GetDataTable() As Data.DataTable
    
45.         Dim dt As New Data.DataTable
    
46.         ' / เพิ่มหลัก (Columns) หรือฟิลด์ จำนวน 6 หลัก
    
47.         With dt
    
48.             .Columns.Add("EmployeePK", GetType(Integer))
    
49.             .Columns.Add("EmployeeID", GetType(String))
    
50.             .Columns.Add("EmployeeName", GetType(String))
    
51.             .Columns.Add("Position", GetType(String))
    
52.             .Columns.Add("Department", GetType(String))
    
53.             .Columns.Add("HireDate", GetType(Date))
    
54.         End With
    
55.         ' / เพิ่มรายการข้อมูล (Record) เรียงตามลำดับฟิลด์
    
56.         With dt
    
57.             .Rows.Add("1", "EMP00001", "นายทองก้อน ทับทิมกรอบ", "Managing Director", "Management", "01/01/2555")
    
58.             .Rows.Add("2", "EMP00002", "นายบุญห่อ พ่อรวย", "ช่างซ่อมบำรุง", "Technical", "01/06/2555")
    
59.             .Rows.Add("3", "EMP00003", "นางสาวกุ๊กกิ๊ก น่ารักที่สุด", "เลขา", "Management", "25/02/2555")
    
60.             .Rows.Add("4", "EMP00004", "นางบัวผัน ฝันเฟื่อง", "หัวหน้าบัญชี", "บัญชี", "11/11/2555")
    
61.             .Rows.Add("5", "EMP00005", "หนูมาลี มีลูกแมวเหมียว", "ธุรการ", "ธุรการ", "13/04/2555")
    
62.         End With
    
63.         Return dt
    
64.     End Function
    
65. End Class

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

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

g2gsoftuser

ขอบคุณครับ