Hola , gracias otra vez por responder
este es mi funcion:
Código:
Public Function getCombos(ByVal Opcion As String, ByVal Valor01 As String, ByVal Valor02 As String) As DataTable
Try
Dim con As New SqlConnection(conex)
Dim dap As New SqlDataAdapter("USP_COMBOS", con)
Dim dst As New DataSet
With dap.SelectCommand
.CommandType = CommandType.StoredProcedure
.Parameters.Add(New SqlParameter("@Opcion", SqlDbType.VarChar, 2)).Value = Opcion
.Parameters.Add(New SqlParameter("@valor01", SqlDbType.VarChar)).Value = Valor01
.Parameters.Add(New SqlParameter("@valor02", SqlDbType.VarChar)).Value = Valor02
End With
dap.Fill(dst, "tCOMBOS")
Return dst.Tables("tCOMBOS")
Catch ex As Exception
End Try
End Function
en el Visual lo lleno de la siguiente manera:
Código:
Private objx As New ClsVentas
Private Sub llenarCombos()
With cboproducto
.DataSource = objx.getCombos(9, "", "")
.DisplayMember = "Productos"
.ValueMember = "IdProducto"
End With
end sub
Código:
Private Sub frmNuevaVenta_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
llenarCombos()
End Sub
en el SelectedIndexChanged del combo no tengo nada , pero creo que aqui deberia ir la condicion o algo como esto.
Código:
Private Sub cboproducto_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboproducto.SelectedIndexChanged
cboproducto.DataSource = objx.getCombos(9, cboproducto.SelectedText, cboproducto.SelectedText)
End Sub
y las dos propiedades AutoCompleteMode y AutoCompleteSource las tengo como propiedades del combo.