cc=sys(16)
start=at(":",cc)-1
cend=rat("\",cc,1)
set default to (substr(cc,start,cend-start+1))
_screen.visible=.f.
set talk off
set sysmenu to
do form 表单1.scx
Read Events
start=at(":",cc)-1
cend=rat("\",cc,1)
set default to (substr(cc,start,cend-start+1))
_screen.visible=.f.
set talk off
set sysmenu to
do form 表单1.scx
Read Events