![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
![]() La nueva apariencia de esta página esta chulisima felicidades a los moderadores.
Mi inquietud es la siguiente; Tengo una tabla con una serie de articulos, entonces hago lo siguiente: var articulos:string; Begin With QryArticulos do begin close; sql.clear; sql.add('SELECT nom_articulos as nomart FROM TBARTICULOS'); open; if Fieldvalues['nomart']<>'' then begin articulos:=Fieldvalues['nomart']; combobox.items.add(articulos); end; end; end; solo me agrega el primero. |
#2
|
||||
|
||||
Debes recorrer todo el conjunto de resultados:
Código:
while not QryArticulos.Eof do begin { Código para agregar un ítem al combo a partir del registro actual } QryArticulos.Next; end; |
#3
|
|||
|
|||
Cita:
![]() Cita:
![]() Código:
var articulos:string; Begin With QryArticulos do begin close; sql.clear; sql.add('SELECT nom_articulos as nomart FROM TBARTICULOS'); open; while not eof do begin if Fieldvalues['nomart']<>'' then begin articulos:=Fieldvalues['nomart']; combobox.items.add(articulos); end; next; end; end; end; |
#4
|
|||
|
|||
Bueno, se me adelantó Román
![]() |
#5
|
|||
|
|||
Gracias a ambos por su ayuda
![]() |
![]() |
|
|
![]() |
|