Visual Basic - Llenar combo

Life is soft - evento anual de software empresarial
   
Vista:

Llenar combo

Publicado por Alvaro (85 intervenciones) el 01/10/2008 09:39:13
Hola muy buenas, en una de las pantalla de mi programa relleno los combos que esta tiene, hasta aqui no hay problemas, el problema me viene que como tengo demasiados combos, me tarda mucho al cagarme esta pantalla. Mi pregunta es si alguien sabe algun otro procedimiento que sea mas rapido para cargar los combos. El procedimiento que yo uso es el siguiente:

Private Sub Form_Load()
Call Pg_Llenarcbotipo(cbo_tipodir)
End Sub

Sub PG_LlenarCboTipo(cbo as combobox)
Dim LP_Sql As String
Dim rs As New recordset

Screen.MousePointer = 11
cbo.Clear

LP_Sql = "Select * from TipoDir WHERE cod _sucursal = 1 ORDER BY descripcion"
rs.Open LP_Sql, CX
while not rs.EOF then
cbo.AddItem rs("Descripcion")
cbo.ItemData(cbo.NewIndex) = rs("CodTipo")
rs.MoveNext
Wend
rs.Close

Screen.MousePointer = 0
End Sub

Al procedimiento PG_Llenarcbotipo lo llamo en el load unas 35 veces que es la cantidad de combos que tengo en esta pantalla, por eso me tarda demasiado tiempo en cargarmela. Me seria de gran ayuda toda la informacion que me puedan facilitar, muchas gracias de antemano.

Un saludo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Llenar combo

Publicado por VICTOR (34 intervenciones) el 02/10/2008 23:53:21
PRUEBA DE LA SIG FORMA

DO WHILE RS.EOF=FALSE
Combo1.AddItem rs("Descripcion")
rs.movenext
LOOP

Y ASEGURATE SI MANDAS LLENAR LOS COMBOS DE OTRA PARTE QUE NO SEA EL LOAD, QUE LOS COMBOS ESTEN CON LA PROPIEADAD VISIBLE=FALSE, Y CUANDO SE LLENEN LO CAMBIAS A TRUE.

ESPERO TE FUNSIONE, SALUDOS
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar