Seleccion en combobox

[guillebomtrasmiti]

nada, al final lo arreglé así, lo dejo pa quien le valga...abrazoooossss

Public Sub cargar_combo()

conexion.ConnectionString = "Data Source=.\SQLEXPRESS11;AttachDbFilename=C:\VISUAL\T pvVigoSe\TpvVigo\Tpv.mdf;" & _
"Integrated Security=True;" & _
"Connect Timeout=30;" & _
"User Instance=True"

Dim adaptador As New SqlDataAdapter("Select NombreFamilia,IdF From FamiliasProducto ORDER BY OrdenFamilia ASC", conexion)

'Dim midataset As New DataSet


adaptador.Fill(midataset, "FamiliasProducto")


ComboBox1.DataSource = midataset.Tables("FamiliasProducto")
ComboBox1.DisplayMember = "NombreFamilia"
ComboBox1.ValueMember = "IdF"

End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

Dim codigo As Integer

Try
codigo = Convert.ToInt32(ComboBox1.SelectedValue)
Catch ex As InvalidCastException

Exit Sub

End Try

Dim a As Integer = New Integer

Dim adaptadorcombo As New SqlDataAdapter("Select Producto From Productos Where NFamilia= " & codigo, conexion)

'aquí cargo el dataset con la tabla deseada y lo cargo con fill
midatasetproductos.Clear()
adaptadorcombo.Fill(midatasetproductos, "Productos")
If DgLista.DataMember = "" Then
DgLista.DataMember = "Productos"

End If


End Sub