直接写
Dim r As Row = Tables("生产进度表").CurrentDim Key As String = "生产进度表" & r("_Identify")If tbrk.Contains(Key) Then tbrk.Remove(Key) '移除本地编辑登记End If
QQClient.Send("!#" & Key & "#!") '通知服务器此行已经结束 编辑