检查da_cod是否重复，先是用APPEND 添加一条记录，然后在保存里检查是否重复

我的代码是这样写的：(参考过以前帖子的代码)
a=RECNO()
SELECT zgda
GO top
I=1
DO WHILE I<>a
SKIP -1
XM=ALLTRIM(thisform.pageframe1.page1.txtcod.Value)
Locate For zgda.da_cod=XM
I=I+1
ENDDO
If Found()
Messagebox("职工编号重复",48,"养老保险管理系统")
thisform.pageframe1.page1.txtcod.SetFocus ()
ENDIF

但是就是不重复，系统也会报重复，代码有什么问题？
或是给点其他意见。感谢！~~

SELECT zgda
GO top
Locate For alltrim(zgda.da_cod)=ALLTRIMthisform.pageframe1.page1.txtcod.Value)
If Found()
Messagebox("职工编号重复",48,"养老保险管理系统")
thisform.pageframe1.page1.txtcod.SetFocus ()
ENDIF

如果你不想职工编号重复存入话，设为主索引，就可以了。

按楼上的方法还是一样，因为我的TEXT和数据连在一起了，GO TOP之后，TEXT里的记录也就是第一条的记录，要不我也不会那么麻烦还弄个循环了。

如果设为主索引，系统会自动报错，索引不唯一，但是用户不懂电脑的，就不知道该怎么弄了，生怕点错了。
然后我就这样写了一个代码：（将编号设置为主索引）
IF TABLEUPDATE(.F.)=.F.
MESSAGEBOX("编号错误",48,"管理系统")
THISFORM.pageframe1.page1.txtcod.SetFocus
Return
ENDIF

但是系统总是会先报索引把唯一，并不按照提示来进行。我也不知道怎么改了。

[此贴子已经被作者于2006-9-6 22:07:16编辑过]

参考一下本人的一段：
在“保存”按钮中的error事件中：
if nerror=1884
messagebox('密码输入错误，有重码！',0+16+0,'发票输入')
endif
在“保存”按钮中的click事件中：
insert into tablename from array ld
各文本框与数组邦定，输入完数据，点“保存”按钮。
将数组写入表。如无错误，继续下一份。
如有重码，error事件捕捉到，弹出信息框，提示错误。不会存入表，再进行修改。
对重码错误用户不需特别的操作。

nerror=1884？
是什么意思？

错误信息编码，索引“名称”不唯一
帮助文件理有啊

但是还是不能出现提示对话框.

我还想强调一下,是说添加了一条新记录,如果编号不是主索引,怎么来判断重复的问题.


我也自己想想.大家也给意见.

[此贴子已经被作者于2006-9-6 23:53:31编辑过]

好热闹!众狐仙都可能需要换一种思路了。也许你的设计思路来自生成器,且在生成器的基础上进行了修改。如果一开始就没有与生成器相关，你又如何实现你的功能呢?你可能回添加一个表格GRID1,再就是一个命令按钮组COMMANDGROUP1,若能再添加一两个文本框TEXT1和TEXT2用来实现查询(记得我为玲子回复过关于"下一个"这个帖子的)或增加或删除或修改,那么就可以充分地利用这些文本框了。
举一个例子。假如TEXT1的数据类型和宽度都与字段DA_COD一致,我们就利用它来检查数据是否重复.则在增加这个命令按钮的CLICK过程里写上这样的代码
cText1=THISFORM.TEXT1.VALUE
LOCATE FOR DA_COD=cText1
IF EOF()
APPEND BLANK
REPLACE DA_COD WITH cText1
ELSE
MESSAGEBOX("重复记录，不允许增加")
ENDIF
THISFORM.REFRESH
若还想实现数据的修改，这样好了，事先在表单的初始化部分里(THISFORM.INIT),写上这样的代码
THISFORM.GRID1.READONLY=.F.
THISFORM.GRID1.COLUMN1.READONLY=.T. &&假设第一列是DA_COD,关键字段
这样的话，除了关键字段以外，别的任何数据都可以在表格里任意修改，保证修改功能的实现。
(特别说明: 个人看法, 希望对楼主有帮助)

我解决这类问题的方法是先将编号放在变量中，然后再到表中查找，若找到就显示重复信息，若没找到的话再新增一条空记录，然后将变量保存在记录中。

为什么不让编号自动生成，杜绝重复的现象？