Report Control - Report Control slow time data load

Print Page | Close Window

Report Control slow time data load

Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Report Control
Forum Description: Topics Related to Codejock Report Control
URL: http://forum.codejock.com/forum_posts.asp?TID=6128
Printed Date: 09 November 2024 at 7:18pm
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com

Topic: Report Control slow time data load

Posted By: pcmaker
Subject: Report Control slow time data load
Date Posted: 15 January 2007 at 4:27pm

BEFORE I USING A LISTVIEW IN VB6 FOR SHOWING AN INFORMATION, APPROXIMABILITY 13K ROWS, AND THE LOAD OF THIS DATA IS SO FAST, BUT NOW I IMPLEMENT A REPORT CONTROL AND THE TIME OF DATA LOAD DOWN CONSIDERABLY. 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