主题：OPenQQ问题

老师，有事OPenQQ问题，麻烦看看：

'通知经营部经理审核
Dim r As Row  = Tables("合同签订").Current
r.Save()
MessageBox.Show(1)
For Each dr As DataRow In DataTables("账号密码").sqlSelect("职务 = '经营部经理'")
    QQClient.Send(dr("机构名称") & "." & dr("姓名"),"+@|" & r("_Identify") & "|" & r("项目名称") & "|" & _UserXingMing,True)
Next
MessageBox.Show(2)

代码都执行了，却没收到消息，哪儿有问题呢？

客服端ReceivedMessage代码如下：

Dim ptsl() As String  = e.Message.Split("|")
 If ptsl.Length = 5 AndAlso ptsl(0) = "+@"  '如果是申请审核消息
    fhs.Add(ptsl(1) & "|" & ptsl(2) & "|" & ptsl(3) & "|" & ptsl(4)) '将主健,单号和制单人合成为一个字符串存储在集合中
ElseIf ptsl.Length = 3 AndAlso ptsl(0) = "-@"  '如果是审核通过消息
    PopMessage("合同签订" & ptsl(  1) &  "施工合同  已由" & ptsl(2) &  " 审核通过,签订后将及时返回!") 
     Dim dr As DataRow = DataTables("合同签订").sqlFind("项目名称 = '" & ptsl(1) & "'")
     If dr IsNot Nothing Then
        dr.Load
    End  If
 End  If