主题：[求助]OpenQQ实现独占式编辑

撤销或者关闭窗口的时候，你就撤销一下。

Dim r As Row = Tables("表B").Current
If r.DataRow.RowState = DataRowState.Modified  Then
    Dim Key As String = "表B:" & r("_Identify")
    If tbrk.Contains(Key) Then
        tbrk.Remove(Key) '移除本地编辑登记
        QQClient.Send("!#" & Key & "#!") '通知服务器此行已经结束 编辑
    End If
End If