https://foro.gambas-es.org/viewtopic.php?f=1&t=1938&p=11384#p11384
-----------------------------------
Dani26
Martes, 04 Octobre 2011, 01:09

Re: Editar Módulo Desde Programa(solucionado)
-----------------------------------
Aquí la solución,aprovechando la base de datos como sugiriò Shordi.
[code linenumbers=false syntax=gambas]
Public Sub listado(lista As Listbox)
Dim Clave As String
If ConectarBase() Then Return 
 hresul = hconn.Exec("Select * from equipos order by Equipo ASC") 'consulta sql ordenada alfabeticamante
  
  Do While hresul.Available
    Clave = hresul["Equipo"]
   lista.Add(Clave)
       hresul.MoveNext()
  Loop
  End

Public Sub listar()
  
 
  listado(lb1)
  listado(lb2)
   listado(lb3)
  listado(lb4)
   listado(lb5)
  listado(lb6)
   listado(lb7)
  listado(lb8)
   listado(lb9)
  listado(lb10)
   listado(lb11)
  listado(lb12)
   listado(lb13)
  listado(lb14)
   listado(lb15)
  listado(lb16)
  
End[/code]
Donde lb1 a lb16 son unos  listbox que se deben cargar con la misma lista.
Saludos :mryellow:


