您所在位置：主题：表单记录按钮使用count时的问题
aml6811
[专家分：0] 发布于 2008-09-26 15:15:00
cbl518老师：在论坛上认识您很久了，也拜读过您的贴子，对您这个年纪的人还对编程这么感兴趣深感敬佩！我一直在研究VFP，纯业余和个人爱好。我编了一个人事管理方面的程序，程序中遇到了点问题一直没有解决，在此求教。
表单中有移动记录、保存记录等几个按钮，表单中文本框控件在浏览时处于不可编辑状态，录入数据后各文本框处于编辑状态，按【保存】按钮后全部文本框处于不可编辑状态。其中【保存】按钮中使用count统计重复的姓名,如果姓名有重复，程序返回调用程序；“当出现【姓名】重复！请核实重输！”按确定时，表单中全部控件都应该还是编辑状态，但按确定钮后，表单中全部控件都变成了失效不可编辑状态。代码如下：
COUNT all FOR ALLTRIM(姓名)=alltrim(THISFORM.PAGEFRAME1.PAGE1.rq1.text2.Value) to countname
if countname>1
=MESSAGEBOX("【姓名】重复！"+CHR(13)+CHR(13)+" 请核实重输！",48,gsname)
thisform.pageframe1.page1.rq1.text2.setfocus
RETURN 0
endif
表单中有移动记录、保存记录等几个按钮，表单中文本框控件在浏览时处于不可编辑状态，录入数据后各文本框处于编辑状态，按【保存】按钮后全部文本框处于不可编辑状态。其中【保存】按钮中使用count统计重复的姓名,如果姓名有重复，程序返回调用程序；“当出现【姓名】重复！请核实重输！”按确定时，表单中全部控件都应该还是编辑状态，但按确定钮后，表单中全部控件都变成了失效不可编辑状态。代码如下：
COUNT all FOR ALLTRIM(姓名)=alltrim(THISFORM.PAGEFRAME1.PAGE1.rq1.text2.Value) to countname
if countname>1
=MESSAGEBOX("【姓名】重复！"+CHR(13)+CHR(13)+" 请核实重输！",48,gsname)
thisform.pageframe1.page1.rq1.text2.setfocus
RETURN 0
endif