Foxtable(狐表)用户栏目专家坐堂 → [求助]openqq 即时通讯


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

主题:[求助]openqq 即时通讯

帅哥哟,离线,有人找我吗?
moseser
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:612 积分:5220 威望:0 精华:0 注册:2022/4/4 14:42:00
[求助]openqq 即时通讯  发帖心情 Post By:2022/11/27 14:25:00 [只看该作者]

增加行,删除行时及时通知其他好友;这里设计 一个保存按钮 一个 删除按钮,和  QQClient的ReceivedMessage事件;
请问,其中前两个按钮,是否直接在在 表的datarowadded  和 datarowdeleteted 事件中?

还是分别就做个按钮,没此增加或删除后,点一下按钮?
图片点击可在新窗口打开查看此主题相关图片如下:q9.png
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106648 积分:542423 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/11/27 20:27:00 [只看该作者]

按钮和表事件没有关系,另外在窗口设计按钮使用

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


加好友 发短信
等级:三尾狐 帖子:612 积分:5220 威望:0 精华:0 注册:2022/4/4 14:42:00
回复:(有点蓝)按钮和表事件没有关系,另外在窗口设...  发帖心情 Post By:2022/11/28 8:17:00 [只看该作者]

也是每增加一行时,要按一下这个按钮,这样就把新增的内容更新到其他客户端了对吧?

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


加好友 发短信
等级:三尾狐 帖子:612 积分:5220 威望:0 精华:0 注册:2022/4/4 14:42:00
回复:(moseser)回复:(有点蓝)按钮和表事件没有关...  发帖心情 Post By:2022/11/28 8:18:00 [只看该作者]

我想实现的是,没当增加一行,或者多行时,就自动更新的其他客户端

 回到顶部
帅哥,在线噢!
cd_tdh
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3080 积分:20586 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2022/11/28 8:28:00 [只看该作者]

必须其他客户端点击刷新才行的,openqq只是一个提示作用。

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106648 积分:542423 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/11/28 8:53:00 [只看该作者]

以下是引用moseser在2022/11/28 8:18:00的发言:
我想实现的是,没当增加一行,或者多行时,就自动更新的其他客户端

可以到AfterSaveDataRow事件处理,用法差不多

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106648 积分:542423 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/11/28 8:54:00 [只看该作者]

以下是引用cd_tdh在2022/11/28 8:28:00的发言:
必须其他客户端点击刷新才行的,openqq只是一个提示作用。

不需要点击刷新,ReceivedMessage事件代码会自己刷新的

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


加好友 发短信
等级:三尾狐 帖子:612 积分:5220 威望:0 精华:0 注册:2022/4/4 14:42:00
回复:(有点蓝)以下是引用cd_tdh在2022/11/28 8:28:...  发帖心情 Post By:2022/11/28 9:07:00 [只看该作者]

Dim r As Row = Tables("A").Current
Dim
p As String = IIF(r.DataRow.RowState = DataRowState.Added, "A#", "U#")
r
.Save()
'
一定要在保存后合成信息,因为新增行的主键在保存后才生成
Dim
msg As String = p & "A" & "#" & r("_Identify")
For
Each bd As QQBuddy In QQClient.Buddies
    If bd.Online Then
        QQClient.Send(bd.name, msg)
   
End If
Next


这个是只针对当前行,如果我增加了多行后,在点这个按钮的话,是不是只发送的最后一行呢?

 回到顶部
帅哥,在线噢!
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106648 积分:542423 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/11/28 9:41:00 [只看该作者]

上面的代码只发送当前选中的行。建议到AfterSaveDataRow事件处理,这种每一个保存的行都会触发这个事件

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


加好友 发短信
等级:三尾狐 帖子:612 积分:5220 威望:0 精华:0 注册:2022/4/4 14:42:00
回复:(有点蓝)上面的代码只发送当前选中的行。建议...  发帖心情 Post By:2022/11/28 10:13:00 [只看该作者]

那就是 遍历一遍都有的保存行,对不

 回到顶部
总数 15 1 2 下一页