Code: Select all
Private Sub FILL_FLEX()
Dim C As Long, R As Long, I As Long
With Me.MSFlexGrid1
.Redraw = False
For I = 0 To UBound(STRDBLIST, 2)
.TextMatrix(I + 1, C + 0) = STRDBLIST(0, I)
.TextMatrix(I + 1, C + 1) = STRDBLIST(1, I)
[b]' i need to align t the right all cells from here[/b]
.TextMatrix(I + 1, C + 2) = STRDBLIST(2, I)
.TextMatrix(I + 1, C + 3) = STRDBLIST(3, I)
.TextMatrix(I + 1, C + 4) = STRDBLIST(4, I)
.TextMatrix(I + 1, C + 5) = STRDBLIST(5, I)
.TextMatrix(I + 1, C + 6) = STRDBLIST(6, I)
.TextMatrix(I + 1, C + 7) = STRDBLIST(7, I)
.TextMatrix(I + 1, C + 8) = STRDBLIST(8, I)
.TextMatrix(I + 1, C + 9) = STRDBLIST(9, I)
.TextMatrix(I + 1, C + 10) = STRDBLIST(10, I)
.TextMatrix(I + 1, C + 11) = STRDBLIST(11, I)
.TextMatrix(I + 1, C + 12) = STRDBLIST(12, I)
.TextMatrix(I + 1, C + 13) = STRDBLIST(13, I)
.TextMatrix(I + 1, C + 14) = STRDBLIST(14, I)
.TextMatrix(I + 1, C + 15) = STRDBLIST(15, I)
.TextMatrix(I + 1, C + 16) = STRDBLIST(16, I)
.TextMatrix(I + 1, C + 17) = STRDBLIST(17, I)
.TextMatrix(I + 1, C + 18) = STRDBLIST(18, I)
.TextMatrix(I + 1, C + 19) = STRDBLIST(19, I)
.TextMatrix(I + 1, C + 20) = STRDBLIST(20, I)
.TextMatrix(I + 1, C + 21) = STRDBLIST(21, I)
[b] 'to here[/b]
Next I
.Redraw = True
Me.LNRG.Caption = Format(.Rows - 1, "#,##0")
DoEvents
End With
End Sub