2006年9月13日

流水号
摘要： 我以前写的一段代码。用WebQueryOpen事件中的代理实现自动编号Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Dim doc As NotesDocument Dim temp As NotesDocument Dim view As NotesView Dim item As NotesItem... 阅读全文
posted @ 2006-09-13 11:31 helloxuxu 阅读(479) 评论(0) 推荐(0) 编辑
 
得到一个数组里面相同元素的个数
摘要： 例如一个数组是 1，1，1，2，2，3，3，3，3 我想得到的结果是：1：3个 2：2个 3：4个公式：sourceList:="1":"1":"1":"2":"2":"3":"3":"3":"3";tmpList:=@Unique(sourceList);tmpStr:="";@For(i:=1;i<=@Elements(... 阅读全文
posted @ 2006-09-13 11:21 helloxuxu 阅读(667) 评论(0) 推荐(0) 编辑