主题：数据同步的问题

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

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

当我新增之后先不添加数据立马保存，在其他客户端打开的窗口中立马能显示出新增的那一行，但是当我新增后，然后添加数据，在点击保存，弹出的msgbox中就变成了U#，变成了修改的操作，所以在其他的客户端上不会出现新增的添加数据的这行数据，这个该怎么办？

我想实现当新增一行，添加数据后，点击保存，希望在msgbox中弹出的是A#，那样就能再其他客户端不用刷新就能追加到新增的这条记录。

请大师帮我修改一下代码吧。