[VB.NET] جيك بوكس - نسخة قابلة للطباعة

PHP كود :
Private Sub CheckAllCheckBoxes(ByVal checkAll As Boolean)
    For Each row As DataGridViewRow In DataGridView1.Rows
        Dim chkBox As DataGridViewCheckBoxCell = CType(row.Cells("CheckBoxColumn"), DataGridViewCheckBoxCell)
        chkBox.Value = checkAll
    Next
End Sub

Private Sub btnCheckAll_Click(sender As Object, e As EventArgs) Handles btnCheckAll.Click
    CheckAllCheckBoxes(True)
End Sub

Private Sub btnUncheckAll_Click(sender As Object, e As EventArgs) Handles btnUncheckAll.Click
    CheckAllCheckBoxes(False)
End Sub

Private Sub SaveCheckedItems()
    Using connection As New SqlConnection("YourConnectionString")
        connection.Open()
        For Each row As DataGridViewRow In DataGridView1.Rows
            Dim isChecked As Boolean = Convert.ToBoolean(row.Cells("CheckBoxColumn").Value)
            Dim itemId As Integer = Convert.ToInt32(row.Cells("ItemIdColumn").Value)
            Dim command As New SqlCommand("INSERT INTO YourTable (ItemId, IsChecked) VALUES (@ItemId, @IsChecked)", connection)
            command.Parameters.AddWithValue("@ItemId", itemId)
            command.Parameters.AddWithValue("@IsChecked", isChecked)
            command.ExecuteNonQuery()
        Next
    End Using
End Sub

Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
    SaveCheckedItems()
End Sub