主题：QQClient的ReceivedMessage事件

老师，帮我修改一下代码。

首先我在删除按钮上写了如下代码

Dim msg1 As String = "删除"  & "表A" & "#" & r("编号")

Dim msg As String =bd.name & msg1
        QQClient.Send(bd.name, msg)
然后将定义好的格式消息传递给了qqclient

在QQClient的ReceivedMessage事件中修改代码：下面这段代码应该怎么改，因为我将谁删除了数据的人也传递过去了，

Dim msg As String = e.Message
PopMessage(msg,"提示",PopIconEnum.Infomation)
If msg.StartsWith("删除") Then '表示删除了某行
    Dim pts() As String = msg.Split("#")
    If pts.Length = 3 Then    这一块应该如何修改，才能取到表A
        Dim dr1 As DataRow = DataTables(pts(1)).Find("[编号] = " & pts(2))
        If dr1 IsNot Nothing  Then
            dr1.Load() '重新加载此行
        End If
    End If

Dim msg1 As String = "删除#" & "表A" & "#" & r("编号")

老师，按你的那个改不对的。你好好的看看下面这段代码，帮我改改吧。

Dim r As Row = Tables("表A").Current
Dim msg As String = "删除#"  & "表A" & "#" & r("编号")
'r.Delete()
If r IsNot Nothing Then
            r.Locked = False
            r.Delete
            DataTables("表A").Save()
        End If
Tables("表A").Save()
For Each bd As QQBuddy In QQClient.Buddies
    If bd.Online Then
Dim msg1 As String =bd.name & msg
        QQClient.Send(bd.name, msg1)传递的参数是这样的
msgbox(msg)
    End If
Next
End If

然后将定义好的格式消息传递给了qqclient
在QQClient的ReceivedMessage事件中修改代码：下面这段代码应该怎么改，因为我将谁删除了数据的人也传递过去了，
Dim msg As String = e.Message
PopMessage(msg,"提示",PopIconEnum.Infomation)
If msg.StartsWith("删除#") Then '表示删除了某行
    Dim pts() As String = msg.Split("#")
    If pts.Length = 3 Then    这一块肯定得需要修改，但我不知道该如何修改

        Dim dr1 As DataRow = DataTables(pts(1)).Find("[编号] = " & pts(2))
        If dr1 IsNot Nothing  Then
            dr1.Load() '重新加载此行
        End If
    End If

 

QQClient.Send(bd.name, msg)

当我在传递参数的时候想将用户也传递过去，但是传递过去判断的时候就很难判断到底是新增的，还是修改的，还是删除的操作？

 

1、在datacolchanged的就是修改；

 

2、在datarowadded就是新增；

 

3、在datarowdeleting的就是删除。

把用户和正式消息也用分隔符分开咯。既然都指定用户接收了，还有必要在发送用户么。

学习了。