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
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement