已经好了，把下面一段代码屏蔽了，Dim pts() As String = e.UserName.Split(".")
Dim dr As DataRow
dr = DataTables("用户表").Find("group = '" & pts(0) & "' And name = '" & pts(1) & "'")
If dr Is Nothing Then '判断此用户不存在
e.Message = "用户名错误!" '返回给登录者的提示信息
Return
End If
If dr("password") <> e.Password Then '如果密码错误
e.Message = "登录密码错误!" '返回给登录者的提示信息
Return
End If
e.Success = True '允许用户登录
'添加存储在好友列的非本部门的好友
If dr.IsNull("好友") = False Then
Dim nms() As String = dr("好友").Split(",")
e.Buddies.AddRange(nms)
End If
'最后添加相同部门的同事为好友
'For Each dr In DataTables("用户表").Select("group = '" & pts(0) & "'")
'Dim nm As String = dr("group") & "." & dr("name")
'If nm <> e.UserName Then '如果不是登录者本人
'e.Buddies.Add(nm)
'End If
'Next
加好友 
发短信
Post By：2016/10/9 7:50:00 [只看该作者]
