Autor Tema: Re: Desplegar Datos en un control con varias columnas (Leído 4489 veces)

ctrdlc · « **en:** Jueves 14 de Febrero de 2002, 20:55 »

Hola a todos
Estoy desarrollando una pequeña aplicacion pero tengo un problema al desplegar datos de consulta. Necesito saber si un control combo me desplega al hacer clic sobre el, los Datos de una Tabla en diferentes columnas. o si debo utilizar otro control.

JLR

Un combo solo desplega una columna.
Para ver todas las columnas usa un Grid de los que vienen en vb (datagrid, MsflexGrid, etc ) o el data repiter.
Un saludo
JLR

joviedo

Parece que quieres hacer como los formularios de access, estos no es posible ya que los combos solo muestran una fila o columna, la opcion que te queda es usar el datagrid o flexgrid, solo que ellos te muestran en celdas como excel.

Saludos.

john oviedo

chimps

Tambien podes usar el control ListView. Lo siguiente en un ejemplo:

'Declarar la variable
Dim lstxList As ListItem

'Abrir base de datos
Set db = OpenDatabase(App.Path & "/memo.mdb")
Set rs = db.OpenRecordset("Informacion", dbOpenTable)

'If registro por registro y agregar los registros al ListView
Do While Not rs.EOF
name = rs!Nombre
url = rs!URL
Set lstxList = ListView.ListItems.Add(, , name)
'Esto sirve para agregar una item nuevo al lado de la columna principal, o sea, una subitem
lstxList.SubItems(1) = url

'ir al proximo registro
rs.MoveNext
Loop

Alberto

Esta parte de código te permite simular un combobox de access cuando la información se extrae desde una tabla:
Inclye dos combobox (prod_id y combo2 en el ejemplo)

'indicar la consulta a obtener
mySql = "Select Prod_idno, Prod_NOMB from productos where Pues_idno=" & cate_id.List(Combo1.ListIndex)
'Generar la consulta
Set qryGen = mpanDB.OpenRecordset(mySql, dbOpenDynaset)
'Evitar trap error por consulta vacia
If Not qryGen.EOF Then
'Ir al primer registro
qryGen.MoveFirst
'estructura para envolver los registros
While Not qryGen.EOF
'incluir la informacion correspondiente en los combos
prod_id.AddItem qryGen!prod_idno
Combo2.AddItem qryGen!prod_nomb
qryGen.MoveNext
Wend
End If