Combos dependientes

11/07/2005 - 22:43 por Walter | Informe spam
Tengo un inconveniente para generar dos combos dependientes, yo quiero que
al seleccionar provincia, solo me muestre los partidos de dicha provincia.
Para lo cual hice algo como esto por codigo,

Dim sql As String = "select rtrim(nombre) as nombre,provincia_id from
provincia"

Dim da_provincias As New OdbcDataAdapter(sql, cn)

da_provincias.Fill(ds, "provincias")

cboProvincia.DataSource = ds.Tables("provincias")

cboProvincia.DisplayMember = "nombre"

cboProvincia.ValueMember = "provincia_id"



sql = "select * from partidos"

Dim da_partidos As New OdbcDataAdapter(sql, cn)

da_partidos.Fill(ds, "partidos")

Luego hago esto:

Private Sub cboProvincia_SelectedIndexChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles cboProvincia.SelectedIndexChanged

Dim dv As New DataView(ds.Tables("partidos"))

dv.RowFilter = "provincia_id=" + cboProvincia.SelectedValue

cboPartido.DataSource = dv

End Sub



Pero me tira el siguiente Error:

Excepción no controlada del tipo 'System.InvalidCastException' en
microsoft.visualbasic.dll

Información adicional: El operador no es válido para cadena "provincia_id="
y tipo 'DataRowView'.





QUE ESTOY HACIENDO MAL??



Saludos y muchas gracias



Walter
 

Leer las respuestas

#1 Sonia
12/07/2005 - 09:31 | Informe spam
te envio lo q yo he hecho a ver si te sirve.
al iniciarse el formulario se rellena el combo de provincias y al
seleccionar una provincia se rellena el combo de pueblos(de esa provincia)

Private Sub ColeMantener_Activated(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.Activated



BCOLES.Visible = True

mysql = "SELECT DISTINCT PROVI FROM CENTROS1 ORDER BY PROVI;"

Llenar_combo(mysql, CadenaConexion, cbprovincias)



cbprovincias.SelectedIndex = 0

End Sub

Private Sub Btn_Cons_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Btn_Cons.Click

BCOLES.Visible = True

mysql = "SELECT DISTINCT PROVI FROM CENTROS1 ORDER BY PROVI;"

Llenar_combo(mysql, CadenaConexion, cbprovincias)



cbprovincias.SelectedIndex = 0

End Sub

Private Sub provincias_SelectedIndexChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles cbprovincias.SelectedIndexChanged

provincia = cbprovincias.Text

mysql = "SELECT DISTINCT LOCALIDAD FROM CENTROS1 WHERE PROVI = '" &
provincia & "' ORDER BY LOCALIDAD;"

Llenar_combo(mysql, CadenaConexion, Loca)

End Sub






"Walter" escribió en el mensaje
news:#$

Tengo un inconveniente para generar dos combos dependientes, yo quiero que
al seleccionar provincia, solo me muestre los partidos de dicha provincia.
Para lo cual hice algo como esto por codigo,

Dim sql As String = "select rtrim(nombre) as nombre,provincia_id from
provincia"

Dim da_provincias As New OdbcDataAdapter(sql, cn)

da_provincias.Fill(ds, "provincias")

cboProvincia.DataSource = ds.Tables("provincias")

cboProvincia.DisplayMember = "nombre"

cboProvincia.ValueMember = "provincia_id"



sql = "select * from partidos"

Dim da_partidos As New OdbcDataAdapter(sql, cn)

da_partidos.Fill(ds, "partidos")

Luego hago esto:

Private Sub cboProvincia_SelectedIndexChanged(ByVal sender As


System.Object,
ByVal e As System.EventArgs) Handles cboProvincia.SelectedIndexChanged

Dim dv As New DataView(ds.Tables("partidos"))

dv.RowFilter = "provincia_id=" + cboProvincia.SelectedValue

cboPartido.DataSource = dv

End Sub



Pero me tira el siguiente Error:

Excepción no controlada del tipo 'System.InvalidCastException' en
microsoft.visualbasic.dll

Información adicional: El operador no es válido para cadena


"provincia_id="
y tipo 'DataRowView'.





QUE ESTOY HACIENDO MAL??



Saludos y muchas gracias



Walter



Preguntas similares