ayuda con combobox y selecciones
Publicado por jaf16 (6 intervenciones) el 21/04/2008 20:35:02
Hola a todos, tengo el siguiente problema, en un formulario utilizo varios combobox que se cargan uno dependiente de otro.
El problema lo tengo en este apartado donde cargo el cliente en función de la obra y el cliente, lo que quiero es seleccionar el idcliente, pero me da el siguiente error:
" La conversión del tipo 'DataRowView' en el tipo 'Integer' no es válida."
Private Sub cbObra_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbObra.SelectedIndexChanged
Dim idobra As String
idobra = (Me.cbObra.SelectedValue)
MsgBox(idobra)
' dsClientes.Clear()
'daClientes.SelectCommand.CommandText = ("SELECT * FROM CLIENTES INNER JOIN OBRAS ON OBRAS.IDCLIENTE=CLIENTES.IDCLIENTE WHERE OBRAS.IDOBRA=" + idobra + "")
Dim adaptador As OleDbDataAdapter = New OleDbDataAdapter("SELECT * FROM CLIENTES INNER JOIN OBRAS ON OBRAS.IDCLIENTE=CLIENTES.IDCLIENTE WHERE OBRAS.IDOBRA=" + idobra + "", MiConexion)
Dim dataset As New DataSet
adaptador.Fill(dataset)
cbClientes.DisplayMember = "NOMBRECLIENTE"
cbClientes.ValueMember = "IDCLIENTE"
cbClientes.DataSource = dataset.Tables(0)
End Sub
Como puedo corregir esto?
El problema lo tengo en este apartado donde cargo el cliente en función de la obra y el cliente, lo que quiero es seleccionar el idcliente, pero me da el siguiente error:
" La conversión del tipo 'DataRowView' en el tipo 'Integer' no es válida."
Private Sub cbObra_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbObra.SelectedIndexChanged
Dim idobra As String
idobra = (Me.cbObra.SelectedValue)
MsgBox(idobra)
' dsClientes.Clear()
'daClientes.SelectCommand.CommandText = ("SELECT * FROM CLIENTES INNER JOIN OBRAS ON OBRAS.IDCLIENTE=CLIENTES.IDCLIENTE WHERE OBRAS.IDOBRA=" + idobra + "")
Dim adaptador As OleDbDataAdapter = New OleDbDataAdapter("SELECT * FROM CLIENTES INNER JOIN OBRAS ON OBRAS.IDCLIENTE=CLIENTES.IDCLIENTE WHERE OBRAS.IDOBRA=" + idobra + "", MiConexion)
Dim dataset As New DataSet
adaptador.Fill(dataset)
cbClientes.DisplayMember = "NOMBRECLIENTE"
cbClientes.ValueMember = "IDCLIENTE"
cbClientes.DataSource = dataset.Tables(0)
End Sub
Como puedo corregir esto?
Valora esta pregunta


0