Codejock Forums Homepage
Forum Home Forum Home > Codejock Products > ActiveX COM > Report Control
  New Posts New Posts RSS Feed - Report Control slow time data load
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

Report Control slow time data load

 Post Reply Post Reply
Author
Message
pcmaker View Drop Down
Groupie
Groupie
Avatar

Joined: 05 May 2005
Location: Venezuela
Status: Offline
Points: 23
Post Options Post Options   Thanks (0) Thanks(0)   Quote pcmaker Quote  Post ReplyReply Direct Link To This Post Topic: Report Control slow time data load
    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
Back to Top
 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 12.04
Copyright ©2001-2021 Web Wiz Ltd.

This page was generated in 0.141 seconds.