Dim e =args(0)
Dim r As Row=args(1)
Dim udname As String=args(2)
Dim tb As Table=r.Table
Dim Key As String =mxsysid99 & ":" & tb.DataTable.name & ":" & r("_Identify")
Dim Result As DialogResult
Result=MessageBox.Show("是否保存对" & r("_Identify") &"行的修改!","提示",MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Select Case udname
Case "Del"
Dim msg As String = "D#" & mxsysid99 & "#" & tb.DataTable.name & "#" & r("_Identify")
MessageBox.Show(msg)
tb.AllowEdit=False
r("_locked")=False
r.Delete()
tb.Save()
For Each bd As QQBuddy In QQClient.Buddies
If bd.Online Then
QQClient.Send(bd.name, msg)
End If
Next
Case Else
Dim p As String = IIF(r.DataRow.RowState = DataRowState.Added, "A#", "U#")
r.Save()
'一定要在保存后合成信息,因为新增行的主键在保存后才生成
Dim msg As String = p & mxsysid99 & "#" & tb.DataTable.name & "#" & r("_Identify")
For Each bd As QQBuddy In QQClient.Buddies
If bd.Online Then
QQClient.Send(bd.name, msg)
End If
Next
r("_locked")=True
r("bz")=""
Dim i As Integer=tb.Current.Index
tb.Position = i
End Select
If tbrk.Contains(Key) Then
tbrk.Remove(Key) '移除本地编辑登记
QQClient.Send("!#" & Key & "#!") '通知服务器此行已经结束 编辑
End If
tb.AllowEdit=False
Else
Return Nothing
End If
加好友 
发短信
Post By：2018/12/12 11:44:00 [只看该作者]
此主题相关图片如下：998fc0a7-7575-49e4-a7f5-2272f1fc5c53.png