Solución error:: La conversión de la cadena ¨”Creditos” en el tipo ‘Integer’ no es válida . Numero13

Question



Ayuda por favor soy nuevo en esto. Tengo el siguiente problema cuando trato de copiar un campo a otro que está definido en DataGridView(GridMovimientos) me sale error : La conversión de la cadena ¨”Creditos” en el tipo ‘Integer’ no es válida . Numero13

 

 

A continuación el código :

 

consulta = "SELECT *FROM CCOMDE Where CCOCOD = '" & Empresa & "'  AND CCOCO1 = '" & Sucursal & "' AND  '" & mi_matriz(1) & "'=DETCLA AND '" & mi_matriz(2) & "'= DETDIV AND '" & mi_matriz(3) & "'=DETGRU AND '" & mi_matriz(4) & "'=DETCUE AND  '" & mi_matriz(5) & "'=DETSUB AND '" & mi_matriz(6) & "'=DETAUX  AND CCOANO =" & mi_matriz(9) & " "

 

 

Try

            comandos = New OleDb.OleDbCommand(consulta, coneXion)

            adaptador.SelectCommand = comandos

            adaptador.Fill(registros, "CCOMDE")

            lector = comandos.ExecuteReader

            If lector.HasRows = True Then

 

                While lector.Read()

    ACA              GridMovimientos.DataSource("Debitos") = lector("DETVAL")

                    Else

    ACA                 GridMovimientos.DataSource("Creditos") = lector("DETVAL")      

                    End If

                End While

               

                BindingSource1.DataSource = registros.Tables("CCOMDE")

 

 

            End If

        Catch

            MsgBox(Err.Description & vbCrLf & " Numero" & Err.Number)

  End Try