求助：CS结构下生成流水号的问题

我现在是在CS下做的lotus,如何在表单中自动生成不重复的流水号呢?例如:建的第一个表单的流水号为001,那么第二个就自动生成002,依此类推.
哪位高手有比较详细的方法请指导一下,谢谢.

首先做一个简要表Profile存储最新的编号比如里面有个数值域:MaxNumber
现在你要对你的文档进行自动流水编号假如你记录流水号的域名为:Number
dim s as new notessession
dim ws as new notesuiworkspace
dim db as notesdatabase
dim uidoc as notesuidocument
dim doc as notesdocument
dim pdoc as notesdocument

set db = s.currentdatabase
set uidoc = ws.currentdocument

set pdoc = db.getprofiledocument("Profile")'Profile为简要表单名
if not pdoc is nothing then
pdoc.MaxNumber  = pdoc.MaxNumber (0) + 1         'MaxNumber为最后一保存的流水号
doc.Number = pdoc.MaxNumber        'Number为你要记录流水号的域
call pdoc.save(true,true)     '保存简要表
end if

'以上代码手敲,有问题自己调试下。
这里没有考虑其他的编号规则问题,只考虑流水号自动加1.楼主可根据自己的流水号规则加已修改

用表单,视图方式实现

可以先判断一下,是否能找到视图的表单,没有则新建,有则按照业务规则累加即可