Buen dia les traigo a ustedes mi problematica con la esperanza de que alguien me pueda ayudar a responderla.
tengo un datagridview enlazado a una base de datos, en este datagridview debe de guardar nuevos registros y tambien eliminarlos. El datagridview esta enlazado a la base de datos con el codigo autogenerado por el visual:
Código:
'TODO: This line of code loads data into the 'InvenDataSet1.Productos' table. You can move, or remove it, as needed.
Me.ProductosTableAdapter.Fill(Me.InvenDataSet1.Productos)
Para guardar los registros se pulsa un boton que aparece un cuadro compuesto que tiene cajas de texto donde se captura la informacion y por medio de un boton la guarda en la datagridview y en la base de datos con el siguiente codigo:
Código:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles_ Button2.Click
Dim pro As DataRow
pro = InvenDataSet1.Tables("Productos").NewRow
pro.Item("Nombre_del_Producto") = TextBox24.Text
pro.Item("Marca") = TextBox26.Text
pro.Item("Precio") = TextBox25.Text
pro.Item("Categoria") = TextBox27.Text
pro.Item("Cantidad_disponible") = TextBox28.Text
InvenDataSet1.Tables("Productos").Rows.Add(pro)
Me.Validate()
Me.ProductosBindingSource1.EndEdit()
Me.ProductosTableAdapter.Update(Me.InvenDataSet1.Productos)
MsgBox("Guardado")
End Sub
este codigo funciona a la perfeccion, el problema viene a la hora de querer eliminar los registros, dentro del datagridview tengo una columna con el boton eliminar y con el siguiente codigo intento hacer eso:
Código:
Private Sub guardar_productos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles guardar_productos.Click
Dim msg = "Desea Guardar cambios?"
' Define a title for the message box.
Dim title = "Guardar cambios"
Dim style = MsgBoxStyle.YesNo Or MsgBoxStyle.DefaultButton2 Or MsgBoxStyle.Information
' Display the message box and save the response, Yes or No.
Dim response = MsgBox(msg, style, title)
' Take some action based on the response.
If response = MsgBoxResult.Yes Then
Try
Me.Validate()
Me.ProductosBindingSource1.EndEdit()
Me.ProductosTableAdapter.Update(Me.InvenDataSet1.Productos)
MsgBox("Guardado")
Catch ex As Exception
MsgBox(String.Format("No se pudo guardar Error: {0}", ex.Message))
End Try
End If
End Sub
el problema es que cuando se guarda cambios pararece este error:
"No se pudo guardar Error: Datatype mismatch in critteria expression"
he investigado como corregirlo, pero no me funciona las soluciones que he encontrado

alguna idea de como puedo solucionarlo?
gracias de antemano y saludos
