DataRowDeleting事件的代码改成
Dim r As DataRow = e.DataRowDim msg As String = "D#" & "表A" & "#" & r("_Identify")For Each bd As QQBuddy In QQClient.Buddies If bd.Online Then QQClient.Send(bd.name, msg) End IfNext