thank you,

my lcValue =thisform.text1.value e.i

can i use somthing else?

i need to you use grid,and use filter in myform, why its work when i run myform again.

this is my code. what i can change

LPARAMETERS nKeyCode, nShiftAltCtrl
SET TALK OFF
if nkeycode=13
IF THISFORM.TEXT3.VALUE=SPACE(10)
=MESSAGEBOX(" íÌÈ ÇÏÎÇá ÇáÕäÝ")&& arabic message
ELSE
thisform.text4.value=thisform.text3.value

select 2
locate for alltrim(nam)=alltrim(thisform.text3.value)
IF FOUND()
set index to hhh
set filter to alltrim(nam)=alltrim(thisform.text3.value)
thisform.grid1.visible=.t.
thisform.command1.visible=.t.

ELSE
=MESSAGEBOX("ÇáÇÓã ÇáãÏÎá ÛíÑ ãæÌæÏ")&& arabic message
thisform.text1.value=0
thisform.text2.value=space(10)
thisform.text3.value=nam
thisform.text7.value=space(10)
thisform.text10.value=0
thisform.text6.value=0
thisform.text9.value=0
thisform.text3.setfocus
thisform.command1.visible=.f.
thisform.grid1.visible=.f.

ENDIF

ENDIF
with thisform.Grid1
.Recordsource = .Recordsource
endwith
thisform.text3.setfocus



thisform.grid1.column2.header1.caption="ÇáÕäÝ"
thisform.grid1.column2.header1.fontsize=14
thisform.grid1.column2.header1.fontbold=.t.

thisform.grid1.column3.header1.caption="ÑÞã ÇáÕäÝ"
thisform.grid1.column3.header1.fontsize=14
thisform.grid1.column3.header1.fontbold=.t.

thisform.grid1.column1.header1.caption="ÇáÓÚÑ"
thisform.grid1.column1.header1.fontsize=14
thisform.grid1.column1.header1.fontbold=.t.
endif