SELECT 纱库数据
i=reccount()
local array zdbh[i]
local array x1[i]
shuruzhi=thisform.编号1.value
store 编号  to  zdbh[i]
 x1[i]=str(val(left(zdbh[i],8)))
   for i=1 to i
       if alltrim(STR(x1[i]))=alltrim(STR(dtoc(date(),1)))
          calculate max(编号) to maxbh  &&在数据表中查找出序号最大的记录
          szbh=val(right(maxbh,8))  &&取出数字部分
          if szbh=0 then  &&判断数字部分是否为0
             shuruzhi=DTOC(DATE(),1)+"00000001"
          else
             shuruzhi=DTOC(DATE(),1)+padl(alltrim(str(szbh+1)),8,'0')  &&生成自动编号
        endif
  else
      shuruzhi=DTOC(DATE(),1)+"00000001"
endif
endfor  else
      shuruzhi=DTOC(DATE(),1)+"00000001"
endif
endfor
自动编号的一个问题，运行到上面红色部分以后提示操作符/操作类型不匹配，求高手指教....

这句改为 if STR(x1[i])==STR(dtoc(date(),1))还是不行。

谢谢各位！

经过修改代码，改程序已调试成功，实现根据日期自动生成流水号的功能，现将代码贴出，供大家交流、学习！
select 纱库数据
calculate max(编号) to maxbh
 y=dtos(date())
 rqbf=val(left(maxbh,8))
 szbf=val(right(maxbh,8))
if alltrim(str(rqbf))==alltrim(y)
   if szbf=0 then
       zdbh=y+"00000001"
   else
       zdbh=y+padl(alltrim(str(szbf+1)),8,'0')  &&生成自动编号
   endif
else
   zdbh=y+"00000001"  &&生成自动编号
endif