我把这段代码放到DataRowAdded和DataColChanged事件里,产品资料的数据增加和修改后客户端实现了即时同步,但是会报错
此主题相关图片如下:tim图片20181006180541.png
,
此主题相关图片如下:tim截图20181006181431.png
即时同步代码
For Each r As Row In Tables("产品资料").rows
If r.DataRow.RowState <> DataRowState.Unchanged Then
Dim p As String = IIF(r.DataRow.RowState = DataRowState.Added, "A#", "U#")
r.Save()
'一定要在保存后合成信息,因为新增行的主键在保存后才生成
Dim msg As String = p & "产品资料" & "#" & r("_Identify")
For Each bd As QQBuddy In QQClient.Buddies
If bd.Online Then
QQClient.Send(bd.name, msg)
End If
Next
End If
Next