首先不应该在这2个事件里循环所有行，下面这样就可以了
If e.DataRow.RowState <> DataRowState.Unchanged Then
Dim p As String = IIF(r.DataRow.RowState = DataRowState.Added, "A#", "U#")
e.DataRow.Save()
'一定要在保存后合成信息,因为新增行的主键在保存后才生成
Dim msg As String = p & "产品资料" & "#" & e.DataRow("_Identify")
For Each bd As QQBuddy In QQClient.Buddies
If bd.Online Then
QQClient.Send(bd.name, msg)
End If
Next
End If
其次出错提示应该是数据库文件冲突，如果使用的客户端比较多，建议改为SqlServer
加好友 
发短信
Post By：2018/10/7 8:54:00 [显示全部帖子]
