您的第二段代码。。。。汗
怎么不加个PACK
我的代码是这样的,帮我看看哪儿有问题:
Use CLK_CLMC
zs=Reccount()
For i=1 To zs
GOTO i
XM=ALLTRIM(材料编号)
b=RECNO()
Locate For ALLTRIM(材料编号)=XM WHILE RECNO()<>b
If Found()
Messagebox(材料编号+"重复",0+48,"提示")
Else
Endif
Endfor
Messagebox("执行完毕,没有重复编号",0+48,"提示")