请各位老师帮帮忙，怎么才能点击菜单一个选项后使其他选项为不能使用状态。
还有SQL语句查询语句怎么在表单中使用所查询出的数据在表格中显示出来
我的查询代码是：

a1=ALLTRIM(thisform.pageframe1.page1.text1.value)
LOCATE ALL FOR 所有.姓名=a1
IF FOUND()
ACTIVATE screen
thisform.pageframe1.page1.Grid1.RecordSource="select 姓名,单位地址,固定电话,移动电话 from 所有 into temp;
where 所有.姓名=a1 "
COUNT FOR 姓名=a1 TO a2
IF a2=0
messagebox("没有相关记录",0+16,"提示")
ENDIF
thisform.pageframe1.page1.Grid1.Enabled= .T.
thisform.pageframe1.page1.Grid1.Refresh
ELSE
wait"没有此人!" windows at 7,60
thisform.pageframe1.page1.text1.SetFocus
endif
但是无法显示。
希望能指出错误给个提议和做法 在线急等 深表感谢了

怎么才能点击菜单一个选项后使其他选项为不能使用状态...

看下set skip of的用法

恩 好的

SET SKIP OF MENU MenuBarName1 lExpression1
— 或者 —
SET SKIP OF PAD MenuTitleName OF MenuBarName2 lExpression2
— 或者 —
SET SKIP OF POPUP MenuName1 lExpression3
— 或者 —
SET SKIP OF BAR nMenuItemNumber | SystemItemName
OF MenuName2 lExpression4
是不是比如说我的菜单顶部有（文件）（组群）（查询）=选项
我点击文件选项时其他选项为灰的代码为：
set skip of menu 组群 .t.
set skip of menu 查询 .t.
对吗？