http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Fri, 15 May 2026 23:04:44 +0000 Tue, 27 Feb 2007 15:40:43 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=6524 http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ http://forum.codejock.com/forum_posts.asp?TID=6524&PID=20795&title=report-control-slow-time-data-load#20795 Author: pcmaker
Subject: 6524
Posted: 27 February 2007 at 3:40pm

BEFORE I USING A LISTVIEW IN VB6 FOR SHOWING AN INFORMATION,APPROXIMABILITY 13K ROWS, AND THE LOAD OF THIS DATA IS SO FAST, BUT NOWI IMPLEMENT A REPORT CONTROL AND THE TIME OF DATA LOAD DOWNCONSIDERABLY. ANYBODY KNOW HOW TO ACCELERATE THIS LOAD?

PART OF THE CODE
Public Sub CargaDatos()
On Error GoTo errSub
Dim Record As ReportRecord
.
.
.
Set Record = wnd.Records.Add()
            Record.AddItem Trim(RsGenerico!co_codigo)
            mensaje.ZOrder (0)
           mensaje.mensaje = "Generando lista para Activo " &RsGenerico!co_codigo
            mensaje.Refresh
            For X = 1 To RsGenerico.Fields.Count - 1
               If Not IsNull(RsGenerico.Fields(X).Value) Then
                    Select Case X
                       Case 2, 3, 4
                           Record.AddItem Format(RsGenerico.Fields(X).Value, "dd/MM/yyyy")
                       Case 12
                           Record.AddItem Format(RsGenerico.Fields(X).Value, "###,#0.0000") 'cFormatoNumero)
                           va_reposicion = va_reposicion + RsGenerico.Fields(X).Value
                           'lbl_va_reposicion.Caption = Format(va_reposicion, cFormatoNumero)
                           lbl_par_va_reposicion.Caption = Format(va_reposicion, cFormatoNumero)
                       Case 13
                           Record.AddItem Format(RsGenerico.Fields(X).Value, "##0")
                       Case 15
                           Record.AddItem Format(RsGenerico.Fields(X).Value, "###,#0.0000") 'cFormatoNumero)
                           va_cuotadep = va_cuotadep + RsGenerico.Fields(X).Value
                           'lbl_va_depacum.Caption = Format(va_cuotadep, cFormatoNumero)
                           lbl_par_va_depacum.Caption = Format(va_cuotadep, cFormatoNumero)
                       Case 16
                           Record.AddItem Format(RsGenerico.Fields(X).Value, "###,#0.0000") 'cFormatoNumero)
                           va_depacum = va_depacum + RsGenerico.Fields(X).Value
                           'lbl_va_netorep.Caption = Format(va_depacum, cFormatoNumero)
                           lbl_par_va_netorep.Caption = Format(va_depacum, cFormatoNumero)
                       Case 17
                           Record.AddItem Format(RsGenerico.Fields(X).Value, "###,#0.0000") 'cFormatoNumero)
                           va_netorep = va_netorep + RsGenerico.Fields(X).Value
                           'lbl_va_cuotadep.Caption = Format(va_netorep, cFormatoNumero)
                           lbl_par_va_cuotadep.Caption = Format(va_netorep, cFormatoNumero)
                       Case 18
                           Record.AddItem Format(RsGenerico.Fields(X).Value, "##0")
                       Case 19, 23
                           Record.AddItem Format(RsGenerico.Fields(X).Value, "###,#0.0000") 'cFormatoNumero)
                       Case 20, 24
                           Record.AddItem Format(RsGenerico.Fields(X).Value, "###,#0.0000") 'cFormatoNumero)
                       Case 21, 25
                           Record.AddItem Format(RsGenerico.Fields(X).Value, "###,#0.0000") 'cFormatoNumero)
                       Case 22, 26
                           Record.AddItem Format(RsGenerico.Fields(X).Value, "###,#0.0000") 'cFormatoNumero)
                       Case Else
                           Record.AddItem Trim(RsGenerico.Fields(X).Value)
                    End Select
                Else
                   Record.AddItem ""
                End If
            Next X]]> Tue, 27 Feb 2007 15:40:43 +0000 http://forum.codejock.com/forum_posts.asp?TID=6524&PID=20795&title=report-control-slow-time-data-load#20795