比如今天是2007-05-30,今天做第一张单的订单号为:0705300001..第二加1..0705300002!

我想那并不太难，主要就是数字与字符的转换和字符串的连接运算而已。

[此贴子已经被作者于2007-5-28 22:05:00编辑过]

先检测当日有无订单，如果无，则生成第一个编号；如果有，则在最大一个编号上加1生成一个新的编号。
第一个编号可以这样生成：
LcOrderNo=SUBS(AllTRIM(STR(YEAR(DATE()),3,2))+ALLTRIM(STR(MONTH(DATE()))+ALLTRIM(STR(DAY(DEATE()))+'1'
至于第二个、第三个……希望您能发挥您的潜力，也相信您能搞定（条条大路通罗马，方法肯定不止一种）。
建议，年份最好用四位，不然，如果您的寿命够长的话，又会遇到千年虫的问题了。

[此贴子已经被作者于2007-5-28 22:02:59编辑过]

谢谢楼上的两位.显示单号为TEXT1.那这句代码怎么写?

晕死。THISFORM.TEXT1.VALUE=LcOrderNo
如果您连这句也还没学会，那还是打好基础再作设计吧。空中楼阁就算建起来也不牵靠！

[QUOTE]先检测当日有无订单，如果无，则生成第一个编号；如果有，则在最大一个编号上加1生成一个新的编号。
第一个编号可以这样生成：
LcOrderNo=SUBS(AllTRIM(STR(YEAR(DATE()),3,2))+ALLTRIM(STR(MONTH(DATE()))+ALLTRIM(STR(DAY(DEATE()))+'1'
至于第二个、第三个……希望您能发挥您的潜力，也相信您能搞定（条条大路通罗马，方法肯定不止一种）。
建议，年份最好用四位，不然，如果您的寿命够长的话，又会遇到千年虫的问题了。
[/QUOTE]
3楼思路是对的，但存在一个问题，如果月份和日期小于10时，如2007-05-08，月份转换得到的是“5”，而不是“05”，日转换出的值是“8”，而不是“08”，这样不利于全年订单排序或索引，如果先用DTOC（）函数把日期转换为字符类型再截取，就能避免这个问题。如：
LcOrderNo=ALLTRIM(substr(dtoc(DATE()),9,2))+ALLTRIM(substr(dtoc(DATE()),1,2))＋ALLTRIM(substr(dtoc(DATE()),4,2))＋‘0001’
另外上面LcOrderNo=SUBS(AllTRIM(STR(YEAR(DATE()),3,2))+ALLTRIM(STR(MONTH(DATE()))+ALLTRIM(STR(DAY(DEATE()))+'1'语句有错误，括号不匹配；最后一个日期函数写成了DEATE()。

六楼说得对，这个我倒是疏忽了。
另外我一般只给思路，让发贴者自己写代码。

LcOrderNo=ALLTRIM(substr(dtoc(DATE()),9,2))+ALLTRIM(substr(dtoc(DATE()),1,2))＋ALLTRIM(substr(dtoc(DATE()),4,2))＋‘0001’

谢谢楼上的各位..好像这句代码后面的两个"+"号是不是不一样..

都一样的意思