用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
问题一:表有没有【保存后】事件,可以将上面代码写在这个事件中?
问题二:在一个表中,修改了若干条记录后再按保存按钮,上面代码能正确执行吗?
问题三:在若修改一条记录就保存一次,则狐表可撤消修改等功能是不是就废了?