AYUDA CON ADDITEM DE COMBOBOX
Publicado por ANDRES (72 intervenciones) el 27/04/2007 20:13:07
HOLA LEI POR AHY QUE A UN ADDITEM DEL COMBO BOX SE LE PUEDEN LLEVAR VARIABLES PERO NO SE COMO HACERLO ESTA ES LA INSTRUCCION
ESTO VA EN EL KEYPRESS DE UN TEXT
if nkeycode=13 or nkeycode=9 then
mitem=alltrim(this.value)
Select unidad1 from items where item = mitem into cursor mcursoritems1
select mcursoritems1
go top
if not eof()
munid1=mcursoritems1.unidad1
endif
Select unidad2 from items where item = mitem into cursor mcursoritems2
select mcursoritems2
go top
if not eof()
munid2=mcursoritems2.unidad2
endif
Select unidad3 from items where item = mitem into cursor mcursoritems3
select mcursoritems3
go top
if not eof()
munid3=mcursoritems3.unidad3
endif
thisform.combo2.additem (munid1)
thisform.combo2.additem (munid)
thisform.combo2.additem ("munid3)
endif
ME ESTA LLEVANDO BIEN LAS VARIABLES PERO NO ME LAS MUESTRA, ALGUNA SUGERENCIA O COMO LO SOLUCIONO MUCHAS GRACIAS O COMO LAS TENGO QUE PONER LO QUE SEA
ESTO VA EN EL KEYPRESS DE UN TEXT
if nkeycode=13 or nkeycode=9 then
mitem=alltrim(this.value)
Select unidad1 from items where item = mitem into cursor mcursoritems1
select mcursoritems1
go top
if not eof()
munid1=mcursoritems1.unidad1
endif
Select unidad2 from items where item = mitem into cursor mcursoritems2
select mcursoritems2
go top
if not eof()
munid2=mcursoritems2.unidad2
endif
Select unidad3 from items where item = mitem into cursor mcursoritems3
select mcursoritems3
go top
if not eof()
munid3=mcursoritems3.unidad3
endif
thisform.combo2.additem (munid1)
thisform.combo2.additem (munid)
thisform.combo2.additem ("munid3)
endif
ME ESTA LLEVANDO BIEN LAS VARIABLES PERO NO ME LAS MUESTRA, ALGUNA SUGERENCIA O COMO LO SOLUCIONO MUCHAS GRACIAS O COMO LAS TENGO QUE PONER LO QUE SEA
Valora esta pregunta


0