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

用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

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

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

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

1、可以啊；

2、这个针对一行数据的。如果保存多行，你可以执行多次上面的代码啊；

3、你可以一次性保存一次性触发啊。

1、可以啊；

2、这个针对一行数据的。如果保存多行，你可以执行多次上面的代码啊；

3、你可以一次性保存一次性触发啊。

1.表【保存后】事件 在什么地方？

2.3  怎么写代码，能给个例子吗？

for each r as row in Tables("表A").rows
    If r.DataRow.RowState <> DataRowState.Unchanged Then
        r.save
        '在这里写你之前的代码
    End If
Next