主题：[求助]怎样产生不重复的编码

egd文件下载
每次录入一行设备型号时，代码列能自动产生一个不重复的编码，4－6位左右，而且当设备型号不发生改变时，代码列不能变化，请高手指点。

不能出现汉字

重新排序后不能改变代码

这个代码再不能发生改变

-=-=-=- 以下内容由 智释源 在 2006年11月08日 10:44am 时添加 -=-=-=-
因为产生的代码在另外的表是用手工录入的

是不能出现汉字，这个代码在它表用手工录入，出现汉字太麻烦，全部是数字最好，想了一个锁定的判断方法，意思是代码不为空时不能操作，if([设备型号]="","",if([设备代码] <> "",不执行,Right(Concat(Left([设备型号],2),"000",CountFor(GridName,"设备型号","=",[设备型号],1,Row)),6)))，中间的不执行公式怎么写？

没有人回答吗？大师们帮个心吧

编码问题已经解决了，就是防重排序重算改变的了，请那位老师指点一下
if([设备型号]="","",Right(Concat(Left(GetPY([设备型号]),2),Right(GetPY([设备型号]),1),Len([设备型号]),"0",CountFor(GridName,"设备型号","=",[设备型号],1,Row)),9))