Keypress

Estoy codificando un buscador por descripcion de una tabala de producto el codigo es el siguiente en el keypress, el problema es que no allo como asignarle a la variable publica buscar el valor de la caja de texto una vez borrado un carcater
LPARAMETERS nKeyCode, nShiftAltCtrl
N = nkeycode
A = CHR(n)
* pregusnra si numerico y si es alpha
IF isalpha(a) OR ISDIGIT(a)
buscar = buscar + UPPER(a)
FOR wi = thisform.list1.ListCount TO 1 STEP -1
thisform.list1.RemoveItem(wi)
thisform.list2.RemoveItem(wi)
thisform.list3.RemoveItem(wi)
ENDFOR
DIMENSION wpro(1)
l = 0
SELECT ds,LN,PR INTO ARRAY wpro FROM producto
FOR wk = 1 TO ALEN(wpro,1)
filea = UPPER(wpro(wk,1))
j = OCCURS(buscar,filea)
IF j > 0
l = l + 1
thisform.list1.AddItem(wpro(wk,1),l)
LNA = STR(wpro(wk,2))
PRA = STR(wpro(wk,3))
thisform.list2.AddItem(LNA,L)
thisform.list3.AddItem(PRA,L)
ENDif
ENDFOR
ELSE
* si toca una tecla no alphanumerica
buscar = thisform.text1.value
endif
0

Añade tu respuesta

Haz clic para o