RE:COMO GRABAR UNA MSFLEXGRID
1)Creas un Recordset con la data que desees pasar al MSFlexGrid.
2)Crear una rutina para crear las cabeceras y borrar el grid.
Private Sub Clear_flexGrid()
Dim I As Integer
flexGrid.Clear
flexGrid.Cols = 4
flexGrid.Rows = 1
With flexGrid
.ColWidth(0) = 300
.ColAlignment(0) = flexAlignCenterCenter
'---
.ColWidth(1) = 0
.TextArray(Fgi(0, 1)) = "Año"
.ColAlignment(1) = flexAlignRightCenter
'---
.ColWidth(2) = 800
.TextArray(Fgi(0, 2)) = "Producto"
.ColAlignment(2) = flexAlignRightCenter
'---
.ColWidth(3) = 3900
.TextArray(Fgi(0, 3)) = "Descripcion"
.ColAlignment(3) = flexAlignLeftCenter
End With
End Sub
Function Fgi(r As Integer, C As Integer) As Integer
Fgi = C + flexGrid.Cols * r
End Function
3)Crear subrutina para cargar el recordset
Private Sub Load_flexGrid()
Call Clear_flexGrid
I = 1
If rs.EOF And rs.BOF Then
flexGrid.Rows = flexGrid.Rows + 1
Else
txtUnidades = 0
wValorVta = 0
wValorIGV = 0
wValorTotal = 0
Do Until rs.EOF
With flexGrid
.Rows = .Rows + 1
.TextMatrix(I, 1) = rs!AÑO
.TextMatrix(I, 2) = rs!CODPRO
.TextMatrix(I, 3) = rs!Descripcion_Producto
End With