รบกวรขอคำชี้แนะ ทำ CheckBoxในDataGrid .net

nongnot

ผมพึ่งลองมาศึกษา .net 2015 ต่อกับฐานข้อมูล+DataGrid ได้แล้ว แต่ต้องการ สร้าง CheckBoc ใน DataGrid  ทีมีข้อมูล 1 หรือ 0   แทนสถานะเช็ค กับ ไม่เช็ค  มีลิงค์หรือบทความให้ศึกาษาหน่อยครับ

thongkorn

มีตัวอย่างอยู่ที่เรื่อง [VB.NET] การสร้างจดหมายเวียน หรือ Mail Merge ด้วยของฟรี Syncfusion แล้วครับ ...

หรือใช้ฟังค์ชั่น CBool ในการแปลงตัวเลขจำนวนเต็มให้เป็น TRUE/FALSE หรือ Checked/UnChecked ... จับลาก DataGridView มาวางไว้บนฟอร์ม แก้ชื่อให้เป็น dgvData เท่านั้นพอ เพราะที่เหลือจะใช้โค้ดทั้งหมดครับ

1. Public Class frmDataGridViewCheckBox
   
2. 
   
3.     Private Sub frmDataGridViewCheckBox_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
4.         Call SetupDGVData(dgvData)
   
5.         Call FillDataSample()
   
6.     End Sub
   
7. 
   
8.     Private Function FillDataSample() As DataTable
   
9.         FillDataSample = Nothing
   
10.         Try
    
11.             Dim tbl As New DataTable
    
12.             tbl.Columns.Add("ProductPK", GetType(Integer))
    
13.             tbl.Columns.Add("ProductName", GetType(String))
    
14.             tbl.Columns.Add("chkStock", GetType(Boolean))
    
15.             '// กำหนด 0 = Unchecked, 1 = Checked
    
16.             '// หากอยากได้กลับกันก็ใช้ Not (CBool(1))
    
17.             Dim row As String() = New String() {"1", "Product 1", CBool(1)}
    
18.             dgvData.Rows.Add(row)
    
19.             row = New String() {"2", "Product 2", CBool(0)}
    
20.             dgvData.Rows.Add(row)
    
21.             row = New String() {"3", "Product 3", CBool(1)}
    
22.             dgvData.Rows.Add(row)
    
23.             row = New String() {"4", "Product 4", Not (CBool(1))}
    
24.             dgvData.Rows.Add(row)
    
25.             Return tbl
    
26.         Catch ex As Exception
    
27.             MessageBox.Show(ex.Message)
    
28.         End Try
    
29.     End Function
    
30. 
    
31.     '// เหตุการณ์ในการคลิ๊กเมาส์ลงในแต่ละเซลล์ของหลักที่ 3 (Index = 2)
    
32.     Private Sub dgvData_CellContentClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvData.CellContentClick
    
33.         '// Column Index = 2
    
34.         If dgvData.Columns(e.ColumnIndex).Name = "chkStock" Then
    
35.             Dim isChecked As Boolean = dgvData.Rows(e.RowIndex).Cells(e.ColumnIndex).Value
    
36.             If isChecked = False Then
    
37.                 dgvData.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = True
    
38.             Else
    
39.                 dgvData.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = False
    
40.             End If
    
41.         End If
    
42.     End Sub
    
43. 
    
44.     ' / --------------------------------------------------------------------------------
    
45.     '// Initialize DataGridView @Run Time
    
46.     Private Sub SetupDGVData(ByRef DGV As DataGridView)
    
47.         With dgvData
    
48.             .RowHeadersVisible = False
    
49.             .AllowUserToAddRows = False
    
50.             .AllowUserToDeleteRows = False
    
51.             .AllowUserToResizeRows = False
    
52.             .MultiSelect = False
    
53.             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
    
54.             .ReadOnly = True
    
55.             .Font = New Font("Tahoma", 9)
    
56.             ' Columns Specified
    
57.             .Columns.Add("ProductPK", "ProductPK")
    
58.             .Columns.Add("ProductName", "Product Name")
    
59.             '// Select Print.
    
60.             Dim chkStock As New DataGridViewCheckBoxColumn
    
61.             .Columns.Add(chkStock)
    
62.             chkStock.HeaderText = "In Stock"
    
63.             chkStock.Name = "chkStock"
    
64.             With .Columns("chkStock")
    
65.                 .HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
    
66.                 .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
    
67.             End With
    
68.             ' Autosize Column
    
69.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    
70.             '// Even-Odd Color
    
71.             .AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
    
72.             ' Adjust Header Styles
    
73.             With .ColumnHeadersDefaultCellStyle
    
74.                 .BackColor = Color.Navy
    
75.                 .ForeColor = Color.Black ' Color.White
    
76.                 .Font = New Font("Tahoma", 9, FontStyle.Bold)
    
77.             End With
    
78.         End With
    
79.     End Sub
    
80. 
    
81. End Class

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

nongnot

ขอบคุณมากๆครับ ผมลองไปโหลด Syncfusion ลงทะเบียนมาใช้แล้วครับ เป็น v1.8 มันให้ทดลองใช้ 30วัน ไม่รู้ว่าผมโหลดมาถูกตัวหรือเปล่า เลยยังไม่ได้ทดลองใช้ครับ

nongnot

  Dim row As String() = New String() {"1", "Product 1", CBool(1)}
            DataGridView1.Rows.Add(row)
            row = New String() {"2", "Product 2", CBool(0)}
            DataGridView1.Rows.Add(row)
            row = New String() {"3", "Product 3", CBool(1)}
            DataGridView1.Rows.Add(row)
            row = New String() {"4", "Product 4", Not (CBool(1))}

ทดลองรันแล้วได้ปกติครับ แล้วถ้าผมเอาท่อนนี้มา Sql Table ข้อมูลมาลงได้ไหมครับ  หรือต้องมีคำสั่ง วนลูปอีกที ขอบคุณครับ