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

cc=sys(16)
start=at(":",cc)-1
cend=rat("\",cc,1)
set default to (substr(cc,start,cend-start+1))
非常高的写法，出现start为-1怎么办？
还有，不见调菜单的程序

那本破书扔了吧，sys(16)返回什么自己看过没有？

知道了，所以只有请教了