关于重复代号错误提示问题（小问题）

[anchundan]

有个问题我编写了一段代码在保存的命令按钮中的error 事件中写了如下代码


CMESSAGETITLE="境外报刊收订系统"
cmessageTEXT="报刊代号不唯一,请重新输入"
CMESSAGETYPE=16
MESSAGEBOX(CMESSAGETEXT,CMESSAGETYPE,CMESSAGETITLE)
=TABLEREVERT(.T.)
LOCAT FOR EMPTY(MLK.报刊代号)
delete
pack
但是对新添加的记录不给予错误提示
而且即使点击添加后什么也不输入直接点击保存的话
也不会出现错误信息
而且更离谱的是居然保存上了
很怪
各位高手赐教！~谢谢

[mgan]

sele count(*) from MLK where MLK.报刊代号=alltrim(你输入的值) into array aa
然后判断aa是否为0 如果不为0 则弹出不的窗口 否则....
这个方法试试看 比你哪个要方便一点

[anchundan]

这个什么意思能说的明白点吗
我不懂啊
是在click事件还是error事件呢
谢谢谢谢！

[anchundan]

在线等啊

[fj_jiangqi]

可以将代码写在click事件中，进行判断，如果不正确就不要进行写入操作，这样就不会有问题。
-------------------------
我流落在凄凉的世界里－孤苦伶仃
我过着动荡无助的生活－四处漂泊

[anchundan]

不行啊好象对所有的都出现了错误提示啊
真奇怪你是指如果为0则出提示框吧

[anchundan]

算了时间太晚了受不了了
明天再来看

[mgan]

sele count(*) from MLK where MLK.报刊代号=alltrim(你输入的值) into array aa
if aa>0
MESSAGEBOX(CMESSAGETEXT,CMESSAGETYPE,CMESSAGETITLE)
endif

[anchundan]

不行无论输入什么都说代码重复啊
大虾再指点在线等

[anchundan]

sele count(*) from MLK where alltrim(MLK.报刊代号)=alltrim(thisform.txt报刊代号) into array aa


IF AA>0
CMESSAGETITLE=aa+"境外报刊收订系统"
cmessageTEXT="报刊代号不唯一,请重新输入"
CMESSAGETYPE=16
MESSAGEBOX(CMESSAGETEXT,CMESSAGETYPE,CMESSAGETITLE)
=TABLEREVERT(.T.)
LOCAT FOR EMPTY(MLK.报刊代号)
delete
pack
thisform.refresh
ELSE

=TABLEUPDATE(.T.)
endif

这个是在保存按扭中的但是发现问题是什么记录也添加不了了
很急！！！！！！！！！！！！！！！！！！！！1

[anchundan]

还是这个问题仍旧解决不了
千年老问题了能不能帮我解决
请大家吃饭啊！！！！