Dim msg As String = "D#" & CurrentTable.DataTable.name & "#"
For i As Integer = CurrentTable.BottomPosition To CurrentTable.TopPosition Step -1
Dim r As Row = CurrentTable.Rows(i)
msg &= r("_Identify") & ","
r.Delete()
Next
msg = msg.Trim(",")
msgbox(msg)
CurrentTable.DataTable.Save()
For Each bd As QQBuddy In QQClient.Buddies
If bd.Online Then
QQClient.Send(bd.name, msg)
End If
Next
注意由于是一次性发送了所有的删除行的id，而不是一行发送一条消息，所以接收事件要做相应的改动
ElseIf msg.StartsWith("D#") Then '表示删除了行
Dim pts() As String = msg.Split("#")
If pts.Length = 3 Then
DataTables(pts(1)).RemoveFor("[_Identify] in (" & pts(2) & ")") '移除行
End If
End If
加好友 
发短信
Post By：2017/10/21 15:44:00 [显示全部帖子]
