安您指导，程序写好后，添加到项目管理器的其他选项的其他文件目录下。运行后，找不到变量IID、ID、IID2  
如果iid 是我表中的“订单号”字段，那么CALCULATE  MAX(id) TO iid2 中的id 和iid2 是指的什么？表中没有啊？并且还提示：APPENF BLANK 错误：9数据类型不匹配？
请老师赐教，谢谢


[ 本帖最后由 关关雎鸠 于 2010-9-4 20:47 编辑 ]

小买卖，不敢想有那么多的订单，个位数已足以

我的做法是：
1、定义一个全局变量 nDDH (订单号 数值型)
2、给变量赋初值，前提是 SET DATE ANSI、SET CENTURY ON
   nDDH=VAL(CHRTRAN(DTOC(DATE()),".",""))*100
3、获取表中的最大订单号
   SELECT MAX(订单号) DDH FROM 表 INTO CURSOR TMP
4、nDDH=MAX(TMP.DDH,nDDH)+1

2、给变量赋初值，前提是 SET DATE ANSI、SET CENTURY ON
   nDDH=VAL(CHRTRAN(DTOC(DATE()),".",""))*100
不懂。版主能否说明的详细一些。谢谢了。

因为你的表中 并不是只有当天一个日期的数据, 因此(假设订单号取11位, 即: 20080101001), 那么:

sele 你的表名
loca for padr(订单号,8)=dtos(date())
if eof()
   inse into 你的表名(订单号) valu( val(dtos(date())+"001") )
else
   sele max(订单号) from 你的表名 where padr(订单号,8)=dtos(date()) into arra ls
   inse into 你的表名(订单号) valu( ls+1 )
endif



[ 本帖最后由 茵梦湖 于 2010-9-5 15:22 编辑 ]

楼主是不是应该好好补一下基础！

[ 本帖最后由 啸凡 于 2010-9-5 17:40 编辑 ]