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
自动编号的一个问题，运行到上面红色部分以后提示操作符/操作类型不匹配，求高手指教....

论坛的高手教我的，这种就是变量=变量，是不行的，左边不用alltrim.

收到的鲜花

• GYYgyy124 于 2014-01-07 09:11 送鲜花  2朵   附言：谢谢

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

STR(dtoc(date(),1))  其中 dtoc本身就是c型  为啥还要用str强制转换

收到的鲜花

• GYYgyy124 于 2014-01-07 09:11 送鲜花  2朵   附言：谢谢版主

if allt(x1[i])==allt(dtoc(date(),1))


[ 本帖最后由 bccn0906 于 2014-1-6 16:25 编辑 ]

收到的鲜花

• GYYgyy124 于 2014-01-07 09:10 送鲜花  2朵   附言：谢谢

IF ALLTRIM(X[I])=DTOS(DATE())

[ 本帖最后由 sdta 于 2014-1-6 18:19 编辑 ]

收到的鲜花

• GYYgyy124 于 2014-01-07 09:09 送鲜花  2朵   附言：谢谢！

要多看看VFP的帮助文件

谢谢各位！

问题出在这几句红色命令上：你把变量I赋值为一个定值，也就是表文件的记录数，然后对Adbh[I]和X1[I]进行赋值。你的用意是对该两个数组的全部元素赋值，但实际上只对这两个数组的最后一个元素分别赋了值，而其它的元素仍为初始值.F.(逻辑型)。这时，当程序执行到橙色行时，由于X1[1]为.F.，不能对其进行STR()函数操作(该函数只对数值表达式有效)，于是发生了操作类型不匹配的错误；当然，橙色命令中的后半部分也矛盾了：DTOC()函数已经将日期型表达式转换成了字符串，就无法对其进行STR()函数操作。所以，本句一次有两处出现操作类型不匹配的错误。

收到的鲜花

• GYYgyy124 于 2014-01-07 09:06 送鲜花  3朵   附言：谢谢版主，我再好好研究研究！
• GYYgyy124 于 2014-01-07 09:08 送鲜花  2朵   附言：谢谢，我再好好研究研究

程序有不少问题，如第3行就很容易出错，如果表中无任何记录，recc()得到的结果是0，此时定义一个下标为零的数组就会出错。

收到的鲜花

• GYYgyy124 于 2014-01-07 09:09 送鲜花  2朵   附言：谢谢，我再好好研究研究！