摘要： 我以前写的一段代码。用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... 阅读全文

摘要： 例如一个数组是 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(... 阅读全文