主题：自动编号重复，老师看看怎么回事吧

你部门缩写都是相同数量的字符的吗？如果不是

 

 idx = CInt(max.Substring(13,3)) + 1 '获得最大编号的后三位顺序号,并加1

 

请改成

 

 idx = CInt(max.Substring((dr("部门缩写") & "-FW-" & bh & "-").length,3)) + 1 '获得最大编号的后三位顺序号,并加1

 

多人同时录入的时候，有可能重复；但一个人录入的时候如果重复，那不可能。

 

你在保存之前beforeSaveDataRow、DataColChanging事件试试判断重复

 

http://www.foxtable.com/webhelp/scr/2481.htm

 

 

【如果将 编号列的，禁止重复属性，设置为true，是否会避免 多人录入 自动编号 的重复现象？ 如此操作会不会造成，重复的话，某些编号为空？】

 

不可以；不会。

 

【手动编号在列的 datacolchanging事件中容易控制重复；但是若是自动编号不好控制吧？】

 

一样的处理一样的代码而已。

 

【有一点不太理解，已经使用SQLcompute来判断数据了，为什么编号还会重复呢】

 

多人同时操作的时候，会有小概率出现重复，如：同一时间有三个sqlcompute查找最大值，得到都是99，然后99+1存放为100，那么就有3个重复值。

如果在保存表时，多执行几遍，sqlcompute和表保存，统计等于生成的编号。如果统计数据＞1，则重新编号。  是否会一定程度上解决多人同时操作时编号重复？        老师推荐这个防止重复的链接，应该只能解决  一个人录入的重复，而无法解决多人同时录入重复吧？http://www.foxtable.com/webhelp/scr/2481.htm

如果要彻底解决编号是否重复，请加上 _Identify 列的值到你的编号去。此列的值肯定是不重复的。

 

或者是使用openQQ编号 http://www.foxtable.com/webhelp/scr/3008.htm

 

或者 http://www.foxtable.com/webhelp/scr/1994.htm

 

先去看看qqserver.foxdb、qqclient.foxdb，把例子弄明白了，再做编号

 

http://www.foxtable.com/webhelp/scr/2968.htm

 

http://www.foxtable.com/webhelp/scr/2972.htm

 

UserLogging事件,改代码

 

For Each dr2 As DataRow In DataTables("user").select("")
    Dim nm As String =  dr2("部门") & "." & dr2("name")
    If nm <> e.UserName Then '如果不是登录者本人
        If e.Buddies.Contains(nm)= False Then
            e.Buddies.Add(nm)
        End If
    End If
Next