如何在PB中自动生成编码？？

[fhwang8]

我想在0－9与a－z之间自动生成4为不重复的字符型编码，请问各位大侠如何解决？

[klbt]

问题不明确：
1、是否一定为4位？
2、是否依次递增？
3、编码规则？随机产生？

[mittee]

是 随机产生吗？

[eminena]

1.是一次性生成?还是在插入记录时产生?
2.是随机产生还是按规律产生?
3.可分大小写?

[fhwang8]

是插入记录时产生，随机产生（范围:a-z,0-9），不分大小写

[eminena]

设你表中记录编码的列为 bm

string ls_bm=''integer i,k
for i = 1 to 4
k=48 + integer(rand(36)-1)
if k>57 then k=k+7
ls_bm=ls_bm+char(k)
end for

i=0
select count(bm) into :i where bm=ls_bm;

if i>0 then 执行重新生成........

[eminena]

以上不考虑编码中有相同字符(如 A2AU) .