Demasiados Formularios

[zabait]

Y para que puedas formatear bien el HFlexGRid ahí te va una función:

Sub formatearHGrid(GridAux As MSHFlexGrid, widthCeldas(), nomCeldas())

With GridAux

Dim I As Integer

If .Rows = 0 Then .Rows = 1
.Row = 0
'Damos las características y WIDTHs a la primera línea del listado
For I = 0 To UBound(widthCeldas)
.col = I: .CellAlignment = 4: .CellFontBold = True: .ColWidth(I) = widthCeldas(I): .Text = nomCeldas(I)
Next

End With

GridAux.SelectionMode = flexSelectionByRow
GridAux.AllowUserResizing = flexResizeColumns

End Sub

Siendo:

GRidAux -----> El hfelxgrid que quieres formatear
widthceldas -> Array que contiene todos los width de las columnas
nomceldas ---> Array que contiene todos los nombres de las columnas

Ahora entiendes el porqué tengo la base de datos con los listados???? Porque además, tengo dos campos que tienen los valores para cada listado de los dos arrays, separados por comas.

Justo antes de pasarlos como parámetros de la llamada de la función, realizao lo siguiente:

widthceldas() = Array( rs("widthceldas"))
nomceldas() = Array( rs("nomceldas"))

Bueno te acabo de dar todo lo que tengo para listados con hflexgrid, asi que espero que te sirva de ayuda