以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  删掉，不用了  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88201)

--  作者：misamisali --  发布时间：2016/7/28 17:35:00 --  删掉，不用了 [此贴子已经被作者于2016/8/1 10:45:20编辑过]

--  作者：Hyphen --  发布时间：2016/7/28 17:45:00 --   没有添加好友http://www.foxtable.com/webhelp/scr/2969.htm \'最后添加相同部门的同事为好友 For Each dr In DataTables("用户").Select("部门 = \'" & pts(0) & "\'")     Dim nm As String =  dr("部门") & "." & dr("姓名")     If nm <> e.UserName Then \'如果不是登录者本人         e.Buddies.Add(nm)     End If Next