统一保存：
Dim drsModified As new List(of DataRow)
Dim drsAdded As new List(of DataRow)
For Each r As DataRow In DataTables("geer").DataRows
If r.RowState = DataRowState.Modified Then
drsModified.Add(r)
ElseIf r.RowState = DataRowState.Added
drsAdded.Add(r)
End If
Next
DataTables("geer").Save
For Each r As DataRow In drsModified
Dim p As String = "U#"
Dim msg As String = p & "geer & "#" & r("_Identify")
For Each bd As QQBuddy In QQClient.Buddies
If bd.Online Then
QQClient.Send(bd.name, msg)
End If
Next
Next
For Each r As DataRow In drsAdded
Dim p As String = "A#"
Dim msg As String = p & "geer & "#" & r("_Identify")
For Each bd As QQBuddy In QQClient.Buddies
If bd.Online Then
QQClient.Send(bd.name, msg)
End If
Next
Next
加好友 
发短信
Post By：2017/10/4 10:44:00 [显示全部帖子]
