Foxtable(狐表)用户栏目专家坐堂 → [求助]两个关于用户组的问题


  共有95人关注过本帖树形打印复制链接

主题:[求助]两个关于用户组的问题

帅哥,在线噢!
天一生水
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:82 积分:768 威望:0 精华:0 注册:2017/9/26 16:30:00
[求助]两个关于用户组的问题  发帖心情 Post By:2017/10/12 19:08:00 [只看该作者]

1、下面是在复选列表框获取所有用户的代码,如果仅获取登录人的本用户组 内的用户,怎样修改代码:

For Each us As UserInfo In Users
    Dim cmb As WinForm.CheckedListBox
    cmb = Forms("分享").Controls("CheckedListBox1")
    cmb.items.add(us.Group &"."& us.Name)
Next

 

2、QQServer和QQClient有一个名为Send的方法,用于发送信息,语法为:

    Send(BuddyName, Message, Anyway)

例句:QQClient.Send("生产部.林海","今天的任务完成了吗")

  我想问:BuddyName的格式必须是"生产部.林海",仅User (林海) 不行吗?


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:47537 积分:238766 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/12 20:42:00 [只看该作者]

1、

 

For Each us As UserInfo In Users
    If us.Group = user.Group Then
        Dim cmb As WinForm.CheckedListBox
        cmb = Forms("分享").Controls("CheckedListBox1")
        cmb.items.add(us.Group &"."& us.Name)
    end if
Next

 

2、关键看你 UserLogging 里面用的什么作为用户名。默认是分组+用户名。

 

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

 

 


 回到顶部