Foxtable(狐表)用户栏目专家坐堂 → 用OpenQQ即时高效同步数据--疑问


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

主题:用OpenQQ即时高效同步数据--疑问

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


加好友 发短信
等级:四尾狐 帖子:995 积分:6712 威望:0 精华:0 注册:2015/1/12 22:12:00
用OpenQQ即时高效同步数据--疑问  发帖心情 Post By:2016/5/12 15:50:00 [只看该作者]

用OpenQQ即时高效同步数据

有了OpenQQ,我们可以保存某行数据后,通知其他好友,这一行的数据有变化,请重新加载,这样就能做到即时、高效了。

在编辑窗口加一个保存按钮,按钮代码设置为:

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


问题一:表有没有【保存后】事件,可以将上面代码写在这个事件中?

问题二:在一个表中,修改了若干条记录后再按保存按钮,上面代码能正确执行吗?

问题三:在若修改一条记录就保存一次,则狐表可撤消修改等功能是不是就废了?


 回到顶部