Foxtable(狐表)用户栏目专家坐堂 → openqq 即时同步的问题?(感谢!已搞定)


  共有2637人关注过本帖平板打印复制链接

主题:openqq 即时同步的问题?(感谢!已搞定)

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


加好友 发短信
等级:二尾狐 帖子:500 积分:5397 威望:0 精华:0 注册:2009/2/5 13:09:00
openqq 即时同步的问题?(感谢!已搞定)  发帖心情 Post By:2019/4/1 20:50: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

登录openqq ,这个对主表有效,
因几台电脑打开这个项目,窗口里的表A,如果用的sql表。怎样能也如同主表A一样,即时同步呢?
谢谢!
[此贴子已经被作者于2019/4/1 22:46:42编辑过]

 回到顶部