[VB.NET] การคัดลอกข้อมูลทั้งหมดจากตารางกริด ไปยังตารางกริดอีกตัว

thongkorn

สำหรับบทความนี้ หลักการการทำงานก็ไม่ได้มีความยากเย็นหรือซับซ้อนอะไรเลย ใช้หลักการคัดลอกข้อมูลแถวลำดับ (Array) จากตารางกริดต้นฉบับ จากนั้นก็นำแถวข้อมูลที่ได้ไปเพิ่ม (Add) เข้าไปในตารางกริดอีกตัวก็จบล่ะ ...  


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

1. ' / --------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / Purpose: Copy rows from One DataGridView To Another One.
   
8. ' / Microsoft Visual Basic .NET (2010)
   
9. ' /
   
10. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
11. ' / You can modify and/or distribute without to inform the developer.
    
12. ' / --------------------------------------------------------------------
    
13. Public Class frmCopyDataGrid
    
14. 
    
15.     '// Initialize DataGridView Control.
    
16.     Private Sub InitGrid(DGV As DataGridView)
    
17.         With DGV
    
18.             .AllowUserToAddRows = False
    
19.             .AllowUserToDeleteRows = False
    
20.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    
21.             .AutoResizeColumns()
    
22.         End With
    
23.         '// Declare columns type.
    
24.         Dim Column1 As New DataGridViewTextBoxColumn()
    
25.         Dim Column2 As New DataGridViewTextBoxColumn()
    
26.         Dim Column3 As New DataGridViewTextBoxColumn()
    
27.         '// Add new Columns
    
28.         DGV.Columns.AddRange(New DataGridViewColumn() { _
    
29.                 Column1, Column2, Column3 _
    
30.                 })
    
31.         With DGV
    
32.             .Columns(0).Name = "ID"
    
33.             .Columns(1).Name = "Name"
    
34.             .Columns(2).Name = "Date"
    
35.         End With
    
36. 
    
37.     End Sub
    
38. 
    
39.     Private Sub frmCopyDataGrid_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
40.         '// Initialize DataGridView
    
41.         Call InitGrid(DataGridView1)
    
42.         Call InitGrid(DataGridView2)
    
43. 
    
44.         '// SAMPLE DATA
    
45.         Dim RandomClass As New Random()
    
46.         '// DateTime.Today.AddDays(-RandomClass.Next(365)) --> Random past date 365 days.
    
47.         Dim row As String() = New String() {"1", "Product 1", DateTime.Today.AddDays(-RandomClass.Next(365))}
    
48.         DataGridView1.Rows.Add(row)
    
49.         row = New String() {"2", "Product 2", DateTime.Today.AddDays(-RandomClass.Next(365))}
    
50.         DataGridView1.Rows.Add(row)
    
51.         row = New String() {"3", "Product 3", DateTime.Today.AddDays(-RandomClass.Next(365))}
    
52.         DataGridView1.Rows.Add(row)
    
53.         row = New String() {"4", "Product 4", DateTime.Today.AddDays(-RandomClass.Next(365))}
    
54.         DataGridView1.Rows.Add(row)
    
55. 
    
56.     End Sub
    
57. 
    
58.     Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    
59.         '// Clear rows
    
60.         DataGridView2.Rows.Clear()
    
61.         '// Counts the number of rows in the grid.
    
62.         For iRow = 0 To DataGridView1.Rows.Count - 1
    
63.             '// Copy the original data in each row to the array variable.
    
64.             Dim row As String() = New String() {DataGridView1.Rows(iRow).Cells(0).Value, DataGridView1.Rows(iRow).Cells(1).Value, DataGridView1.Rows(iRow).Cells(2).Value}
    
65.             '// Add row in DataGridView2
    
66.             DataGridView2.Rows.Add(row)
    
67.         Next
    
68.     End Sub
    
69. End Class

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

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

thongkorn

กลวิธีการ Clone คือการคัดลอกคุณสมบัติ (Properties) ของต้นฉบับมา ไม่ได้คัดลอกข้อมูลในแต่ละเซลล์มานะครับ เราทดสอบง่ายๆด้วยการกำหนดค่าใน DataGridView1 (ต้นฉบับ) ...

1.         With DataGridView1
   
2.             .Rows(0).Cells(1).Style.BackColor = Color.Coral
   
3.         End With

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

แก้ไขในเหตุการณ์กดปุ่ม Button1_Click()

1.         DataGridView2.Rows.Clear()
   
2.         For Each row As DataGridViewRow In DataGridView1.Rows
   
3.             Dim sRow = CType(row.Clone(), DataGridViewRow)
   
4.             For Each cell As DataGridViewCell In row.Cells
   
5.                 sRow.Cells(cell.ColumnIndex).Value = cell.Value
   
6.             Next
   
7.             DataGridView2.Rows.Add(sRow)
   
8.         Next

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

g2gsoftuser

ขอบคุณครับ