求助:如何使主菜单灰化和SQL查询语句在表单中的使用
请各位老师帮帮忙,怎么才能点击菜单一个选项后使其他选项为不能使用状态。
还有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
但是无法显示。
希望能指出错误给个提议和做法 在线急等 深表感谢了