主题：[求助]QQclient账号使用外部表，怎么改造？

e.Success = True '允许用户登录

'添加所有同事为好友

For Each dr2 As DataRow In DataTables("用户").DataRows

    Dim nm As String =  dr2("部门") & "." & dr2("姓名")

    If nm <> e.UserName Then '如果不是登录者本人

        e.Buddies.Add(nm)

    End If

Next