RE:CONSULTA CON COMBO Y GRILLA
Esta Text hace referencia a algún campo ?
si es así crea un cursor dentro del evento clic del Combo1
THISFORM.TEXT1.VALUE
Te sugiero algo asi ..esto es de un sistema mío ..
este código va en el evento Interactive Change de la Text
cod3=lower(alltrim(this.value)+"*")
With Thisform.Pageframe1.Page3.Combo1
.ColumnCount = 4
.columnwidths = "122,203,100,100"
.RowSourceType = 0
.RowSource = "select codarticul,nomarticul,Preciovent,Exp_3 from bodegataller;
order by codarticul where ;
like(cod3,lower(codarticul))into cursor temporal3"
.RowSourceType = 3
Thisform.Pageframe1.Page3.Combo1.Refresh
EndWith
if Thisform.Pageframe1.Page3.Combo1.listcount=0
messagebox("Nombre no registrado",0+64,"Atención")
endif
*________________________________________
Esto otro en el evento clic del Combo1
Set delete On
publ nomart3
publ ca3
Thisform.Pageframe1.Page3.Grid1.column2.Text1.Value=temporal3.codarticul+""+temporal3.nomarticul
Thisform.Pageframe1.Page3.Grid1.column3.Text1.Value=temporal3.preciovent
nomart3=temporal3.nomarticul
ca3=temporal3.Exp_3
MessageBox (Allt(nomart3)+""+Str(ca3),256+48,"Esto Queda en Bodega Taller")
Retu
Thisform.Pageframe1.Page3.Combo1.Refresh
* Sólo hay que quitar el código que esta demás
* Si estás atorada escribemé . *