Power Builder - consulta bases de datos con un list box

saludos cordiales,

tengo un solo formulario de consultas de articulos que contiene un list box donde se cargan los datos del producto y al presionar un enter se llenan los datos en otro formulario de mantenimiento en cajas de texto

trabaja perfentamente

pero solo para un formulario..........

al llamar este formulario de consultas de otro formulario
no acepta es mas ni siquiera de cargan los datos en el list box

solo del primer formulario que cre solo trabaja con ese formulario

por fabort revisen este codigo agradesere mucho dfe su ayuda...

//variables globales
string codmarc,descrmarc
//llama al form de consulta
open(w_buscamarca)

//carga los datos en el formulario de consulta
este codigo va en el open del formulario..... w_busmarc
string ymarc,busc
lb_1.reset()

busc=w_marcas.sle_codigo.text+"%"
declare listaNombre cursor for select descripcion from marcas where descripcion like :busc;

open listanombre;
fetch listanombre into :ymarc;
do while sqlca.sqlcode<>100
lb_1.additem(ymarc)
fetch listanombre into :ymarc;
loop
close listanombre;
lb_1.setfocus()

//busca y guartda en una variable
evento selectchan.. del listbox
string codigo,descripcion
descripcion=lb_1.selecteditem()
Select cod_marca,descripcion Into :codigo,:descripcion From marcas Where descripcion = :descripcion;

codmarc=codigo
descrmarc=descripcion

//activate del formulario de mantenimiento almacena el valor de las variables al textbox
//del formulario de mantenimiento
sle_codigo.text=codmarc
sle_descripcion.text=descrmarc

a lo mejor existe otra manera de hacer una consulta... si por fabor me pueden facilitar el codfigo fuente......
agradesco su atencion muchas gracias de antemano por la ayuda que me brindaran

Por que no usas un dddw en vez de todo ese rollo del cursor?? te facilitaria las cosas bastante y te cargaria los datos sin problemas.

Bueno y siento no poder ayudarte...

podrias facilitarme el codigo del data windows o dddw?

Saludo...

Lo que tienes es que crear el datawindow con el select que desees... ejemplo si tienes código y descripcion, seleccionas los dos campos y que te muestre solo la descripción,
DECLARAS UNA VARIABLE DE INSTANCIA (PARA LA VENTANA), SUPONIENDO QUE EL CÓDIGO SEA NUMÉRICO...

long il_codigo

en el evento rowfocuschanged pones esto para saber el código....

IF this.Rowcount() > 0 THEN

// Tomas el código de la línea que estés apuntando..
il_codigo=this.getItemNumber(this.getRow(),'codigo')

// para que resalte el renglon que estas tomando
this.SelectRow(0,False)
this.SelectRow(this.GetRow(),True
//
END IF

y así por el estilo...