关于数据同步 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

DataRowDeleting 中增加

Dim msg As String = "D#" & e.DataTable.Name & "#" & e.DataRow("_Identify")

For Each bd As QQBuddy In QQClient.Buddies
If bd.Online Then
'MessageBox.show(bd.name & " : " & msg)
QQClient.Send(bd.name, msg)
End If
Next

在ReceivedMessage 中用
Dim msg As String = e.Message
If msg.StartsWith("D#") Then '表示删除了行
Dim pts() As String = msg.Split("#")
If pts.Length = 3 Then
If DataTables.Contains(pts(1)) = True Then '如果表加载
Dim dr As DataRow = DataTables(pts(1)).Find("[_Identify] = " & pts(2))
If dr IsNot Nothing Then
DataTables(pts(1)).RemoveFor("[_Identify] = " & pts(2)) '移除行
End If
End If
End If
End If

用以上代码设计出问题，通过系统菜单删除无法同步，但是单独加个控件用以下代码，却能正常同步，不知道什么原因

If Tables("库存表").Current IsNot Nothing
Dim Result As DialogResult
Result = MessageBox.Show("是否删除选定行", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then


Dim r As Row = Tables("库存表").Current
Dim msg As String = "D#" & "库存表" & "#" & r("_Identify")
r.Delete()
Tables("库存表").Save()
For Each bd As QQBuddy In QQClient.Buddies
If bd.Online Then
QQClient.Send(bd.name, msg)
End If
Next


End If
End If

主题：关于数据同步