FOR I=1 TO 10
INSERT INTO 表 (表封编号, POS_NO, NO);
VALUES ("HA HA000090"+PADL(I,2,"0"),RIGHT(SYS(2015),6),I)
ENDFOR
注意:生成的表封编号和NO都是完全一致的,但POS_NO不一致。若想让这个字段一致的话,直接输入即得
再,如果不采用SYS(2015)这个函数产生随机的大小写字母组合,可编写专门的函数
SET TALK OFF
SET SAFETY OFF
CLOSE ALL
USE 表.DBF
ZAP
FOR I=1 TO 10
INSERT INTO 表 (表封编号,POS_NO,NO) VALUES ("HA HA000090"+PADL(I,2,"0"),SA(6),I)
ENDFOR
FUNCTION SA
PARAMETERS nNum
PRIVATE nNum,cText,nCnt,nRand
nNum=IIF(TYPE("nNum")=CHR(78) AND INT(nNum)=nNum AND nNum>0,nNum,6)
cText=[]
FOR nCnt=1 TO nNum
nRand=RAND()
cText=cText+IIF(nRand<=0.5,CHR(65+nRand*52),CHR(97+(nRand-0.5)*52))
ENDFOR
RETURN cText