04/12/2006, 18:23
|
 | | | Fecha de Ingreso: octubre-2005
Mensajes: 192
Antigüedad: 20 años, 1 mes Puntos: 0 | |
| asi lo hago yo con el control MSHFLEXGRID
MSHF.Cols = 3
MSHF.TextMatrix(0, 0) = "Caption col 0"
MSHF.TextMatrix(0, 1) = "Caption col 1"
MSHF.TextMatrix(0, 2) = "Caption col 2"
turecordset.Open "Select * from [tutabla] ", tuconexion
If not turecordset.eof Then
cont = 0
turecordset.movefirst
Do While Not turecordset.EOF
cont = cont + 1
turecordset.MoveNext
Loop
'variable cont obtiene el total de registros
turecordset.MoveFirst
MSHF.Rows = cont + 1
fil = 1
Do While Not turecordset.EOF
With turecordset
MSHF.Row = fil
MSHF.Col = 0
MSHF.Text = !tucampo1
MSHF.Col = 1
MSHF.Text = !tucampo2
MSHF.Col = 2
MSHF.Text = !tucampon
fil = fil + 1
.MoveNext
End With
Loop
End If
turecordset.Close
obviamente cambias la propieda cols del MSHF para agregar mas columnas al GRID.
__________________
"No a las dictaduras, no a la impunidad, no al comercio injusto que explota al menor de edad. Sí a las autocracias, sí a la libertad, el tercer mundo va a estallar."
Finisterra MAGO DE OZ |