主题：OpenQQ

关于OpenQQ

宝典“5.11.5一个消息推送示例”与帮助文档中“自定义信息提示窗口”做法不同，不知道该按照哪个方法来做？两个方法都试过，可是都有问题：消息能发送，接收方也能接收到消息，可是窗口却弹不出来？

 

1、全局代码：Default

 Public fhs As New List(of String)    （没有使用Var变量）

2、发货单“上报”按钮设计

Dim r As Row = Tables("办公用品").Current

 r.Save()

 QQClient.Send("财务科.张三","+@|" & r("_Identify") & "|" & r("事项及依据") & "|" & User.Name)

msgbox(r("事项及依据"))    （该项显示正常）

*审核后无需反馈信息，所以审核按钮未写代码

3、OpenQQ客户端MessageReceived编写代码 （这段代码出错比较严重，已修改）

     

 4、设计了一个窗口 名为“审核申请”如下：

"查看”按钮代码设计：

DataTables("办公用品").Save() '接下来要根据主键查找,必须先保存,因为只有保存后新增行的主键才是有效值.

Dim id As String = e.Form.Controls("Label2").Text

Dim dr As DataRow = DataTables("办公用品").Find("[_Identify] = " & id)

If dr Is Nothing Then

    DataTables("办公用品").AppendLoad("[_Identify] = " & id)

    dr =  DataTables("办公用品").Find("[_Identify] = " & id)

Else

    dr.Load()

End If

If dr IsNot Nothing Then

    Dim wz As Integer = Tables("办公用品").FindRow(dr)

    If wz < 0 Then '如果因为筛选导致此送货单不可见

        Tables("办公用品").Filter = ""

        wz =Tables("办公用品").FindRow(dr)

    End If

    If wz >= 0 Then

        Tables("办公用品").Position = wz

        Forms("办公用品").Open()

    End If

End If

e.Form.Close()

 

5、在项目事件Systemldle中设计代码：

 

If fhs.Count > 0 AndAlso Forms("审核申请").Opened = False Then

    Dim fhs() As String = fhs(0).Split("|")

    fhs.RemoveAt(0)

    With Forms("审核申请")

        .Open()

        .Controls("Label1").Text = pts(2) & "新增申请单" & fhs(1) & ",请审核!"

        .Controls("Label2").Text = pts(0) '将发货单主健设置为Label2的标题

    End With

End If

客户端测试，代码组合正常

 

接收端，测试代码正常，可没有打开“审核申请”窗口，也没有打开“办公用品”窗口

 

看到了，谢谢！我马上去改