When trying to capture value of checkbox I get a caste error

[dougancil]

I have a form that has a datatable on it with the following code:

Imports System.Data.SqlClient
Imports System.Data
Public Class AddHoliday
    Private Sub AddHoliday_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'MDRDataSet5.scratchpad2' table. You can move, or remove it, as needed.
        Me.Scratchpad2TableAdapter.Fill(Me.MDRDataSet5.scratchpad2)
    End Sub
 
    Private Sub DataGridView1_DataError(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles DataGridView1.DataError
        Dim msg = String.Format("DataError occurred:\{0}\{1}\DataErrorContext: {2}", e.Exception.GetType().ToString(), e.Exception.Message, e.Context)
        MessageBox.Show(msg)
    End Sub
    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
        Dim ch1 As New DataGridViewCheckBoxCell()
        ch1 = DirectCast(DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(0), DataGridViewCheckBoxCell)
 
        If ch1.Value Is Nothing Then
            ch1.Value = False
        End If
        Select Case ch1.Value.ToString()
            Case "True"
                ch1.Value = False
                Exit Select
            Case "False"
                ch1.Value = True
                Exit Select
        End Select
    End Sub
 

and when I try to debug it I get the error "Unable to cast object of type 'System.Windows.Forms.DataGridViewTextBoxCell' to type 'System.Windows.Forms.DataGridViewCheckBoxCell'."

The line of code that's throwing this error is

 ch1 = DirectCast(DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(0), DataGridViewCheckBoxCell)
 

can someone assist me with this error?

Thank you

Doug

[R MacDonald]

Hello, Doug,

From the message, it sounds like .Cells(0) is returning a value of type DataGridViewTextBoxCell. So try changing the declaration of ch1 to that type. That is:

Dim ch1 As New DataGridViewTextBoxCell()

Cheers,
Randy