老师,帮我修改一下代码。
首先我在删除按钮上写了如下代码
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