以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  程版主，我将“入库单编号”改成这样  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1217)
--  作者：小狐
--  发布时间：2008/11/23 15:56:00
--  程版主，我将“入库单编号”改成这样

不管怎么删除行，肯定不重号。可能思路上有点走弯路，不过解决了
dim b as new list(of string)

dim d,f as integer

b= datatables("出库").getuniquevalues("[出库日期]=\'"& e.datarow("出库日期")&"\'","出库单编号")

f=0
if b.count >0  then

 for each c as string in b

  d=cint(c.substring(11,4))

  f=math.max(f,d)

 next

end if

f=f+1

e.datarow("出库单编号") ="CK" +cstr(format(e.datarow("出库日期"),"yyyyMMdd"))+"-"+format(f,"0000")
[此贴子已经被作者于2008-11-23 16:20:42编辑过]
--  作者：程兴刚
--  发布时间：2008/11/23 22:37:00
--  

谢谢，抽空研究研究！