27/08/2011, 06:22
|
| | | Fecha de Ingreso: noviembre-2010 Ubicación: madrid
Mensajes: 478
Antigüedad: 14 años Puntos: 5 | |
| Respuesta: no me carga el grid con seleccion combo
Public Sub cargainventariosAlmacen()
Dim oldb As String
Dim cmando As OleDbCommand
Dim dapatador As OleDbDataAdapter
Dim dataset As DataSet
'conexion.Open()
oldb = "Select Fecha From GeneralAlmacen GROUP BY Fecha"
cmando = New OleDbCommand
cmando.CommandText = oldb
cmando.CommandType = CommandType.Text
cmando.Connection = conexion
dapatador = New OleDbDataAdapter(cmando)
dataset = New DataSet()
dapatador.Fill(dataset)
ComboIAlmacen.DataSource = dataset.Tables(0)
ComboIAlmacen.DisplayMember = "Fecha"
'ComboIAlmacen.ValueMember = "Plu"
End Sub |