[VB.NET] การเคลื่อนย้ายตำแหน่งแถวที่เลือกในตารางกริด ให้ขึ้นบนหรือลงล่าง

thongkorn

หลักการคิดสำหรับการเคลื่อนย้ายแถวขึ้นบน : เลือกแถวที่ต้องการ ตรวจสอบว่าแถวนั้นต้องมีค่า Index มากกว่า 0 (แถวแรก Index = 0) จากนั้นคัดลอกรายการแถวนั้นๆเอาไว้ก่อน เพื่อเก็บค่าไว้ในตัวแปรแบบแถวของตารางกริด (Dim Row As DataGridViewRow) แล้วทำการลบแถวที่เลือกออกไป สุดท้ายให้แทรก (Insert) แถวที่คัดลอกเอาไว้ นำไปวางไว้หน้าแถวที่เลือกลบออกด้วย 1 ก็จะทำให้เสมือนเกิดการเคลื่อนย้ายตำแหน่งแถวได้นั่นเอง ... สำหรับการเคลื่อนย้ายแถวลง ก็คิดเหมือนกัน แต่คำนวณหาจำนวนแถวสูงสุด


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

1. Public Class frmDataGridMoveRow
   
2. 
   
3.     Private Sub frmDataGridMoveRow_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
4.         Call InitDataGrid()
   
5.     End Sub
   
6. 
   
7.     ' / --------------------------------------------------------------------------------
   
8.     ' / Initialized DataGridView and put the sample data.
   
9.     Private Sub InitDataGrid()
   
10.         '// Initialize DataGridView Control
    
11.         With DataGridView1
    
12.             .RowHeadersVisible = False
    
13.             .AllowUserToAddRows = False
    
14.             .AllowUserToDeleteRows = False
    
15.             .AllowUserToResizeRows = False
    
16.             .MultiSelect = False
    
17.             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
    
18.             .ReadOnly = True
    
19.             .Font = New Font("Tahoma", 9)
    
20.             ' Autosize Column
    
21.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    
22.             .AutoResizeColumns()
    
23.             '// Even-Odd Color
    
24.             .AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
    
25.             ' Adjust Header Styles
    
26.             With .ColumnHeadersDefaultCellStyle
    
27.                 .BackColor = Color.Navy
    
28.                 .ForeColor = Color.Black ' Color.White
    
29.                 .Font = New Font("Tahoma", 9, FontStyle.Bold)
    
30.             End With
    
31.         End With
    
32.         '// Declare columns type.
    
33.         Dim Column1 As New DataGridViewTextBoxColumn()
    
34.         Dim Column2 As New DataGridViewTextBoxColumn()
    
35.         Dim Column3 As New DataGridViewTextBoxColumn()
    
36.         '// Add new Columns
    
37.         DataGridView1.Columns.AddRange(New DataGridViewColumn() { _
    
38.                 Column1, Column2, Column3 _
    
39.                 })
    
40.         With DataGridView1
    
41.             .Columns(0).Name = "Product ID"
    
42.             .Columns(1).Name = "Product Name"
    
43.             .Columns(2).Name = "Unit Price"
    
44.         End With
    
45. 
    
46.         '// SAMPLE DATA
    
47.         Dim RandomClass As New Random()
    
48.         For iCount As Byte = 1 To 10
    
49.             Dim row = New String() { _
    
50.             iCount, "Product " & iCount, Format(RandomClass.Next(999) + RandomClass.NextDouble(), "0.00")}
    
51.             DataGridView1.Rows.Add(row)
    
52.         Next
    
53.     End Sub
    
54. 
    
55.     ' / --------------------------------------------------------------------------------
    
56.     ' / Move Up.
    
57.     Private Sub btnUp_Click(sender As System.Object, e As System.EventArgs) Handles btnUp.Click
    
58.         With Me.DataGridView1
    
59.             '// หาค่า Index แถวที่เลือก
    
60.             Dim RowIndex As Integer = .SelectedCells(0).OwningRow.Index
    
61.             '// หาก Index = 0 แสดงว่าเป็นแถวบนสุด ให้จบออกจากโปรแกรมย่อย
    
62.             If RowIndex = 0 Then Return
    
63.             '//
    
64.             Dim Col As Integer = .SelectedCells(0).OwningColumn.Index
    
65.             Dim Rows As DataGridViewRowCollection = .Rows
    
66.             '// เก็บค่าแต่ละเซลล์ของแถวที่เลือก
    
67.             Dim Row As DataGridViewRow = Rows(RowIndex)
    
68.             '// ลบแถวที่เลือกออก
    
69.             Rows.Remove(Row)
    
70.             '// ไปเพิ่มแถวใหม่ ก่อนแถวที่เลือก 1 แถว (ก็เลยเสมือนมันเคลื่อนย้ายแถวได้)
    
71.             Rows.Insert(RowIndex - 1, Row)
    
72.             '// เคลียร์การเลือกแถว
    
73.             .ClearSelection()
    
74.             '// โฟกัสรายการแถวที่เลื่อนขึ้นไปแทรก
    
75.             .Rows(RowIndex - 1).Cells(Col).Selected = True
    
76.         End With
    
77.     End Sub
    
78. 
    
79.     ' / --------------------------------------------------------------------------------
    
80.     ' / Move Down.
    
81.     Private Sub btnDown_Click(sender As System.Object, e As System.EventArgs) Handles btnDown.Click
    
82.         With Me.DataGridView1
    
83.             Dim RowIndex As Integer = .SelectedCells(0).OwningRow.Index
    
84.             If RowIndex = .Rows.Count - 1 Then Return
    
85.             '//
    
86.             Dim Col As Integer = .SelectedCells(0).OwningColumn.Index
    
87.             Dim Rows As DataGridViewRowCollection = .Rows
    
88.             Dim Row As DataGridViewRow = Rows(RowIndex)
    
89.             Rows.Remove(Row)
    
90.             Rows.Insert(RowIndex + 1, Row)
    
91.             .ClearSelection()
    
92.             '//
    
93.             .Rows(RowIndex + 1).Cells(Col).Selected = True
    
94.         End With
    
95.     End Sub
    
96. End Class

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

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