主题：[求助]openQQ

我没有发货单编辑窗口，而是直接用的表格，下边的代码应该写在哪里？

3、在发货单编辑窗口的保存按钮中，写入如下代码：

Dim r As Row  = Tables("送货单").Current
r.Save()
QQClient.Send("李四","+@|" & r("_Identify") & "|" & r("单号") & "|" & User.Name)

4、在发货单编辑窗口的审核按钮中，写入如下代码：

Dim r As Row  = Tables("送货单").Current
r("审核") = True
r.Save()
'发送审核通过的消息
QQClient.Send("张三","-@|" & r("单号") & "|" & User.Name)

3、写到DataColChanged事件

If e.DataCol.Name = "单号" then

    Dim r As DataRow  = e.DataRow
    r.Save()
    QQClient.Send("李四","+@|" & r("_Identify") & "|" & r("单号") & "|" & User.Name)

End If

4、同样写到dataColChanged

If e.DataCol.Name = "单号" Then    
    Dim r As DataRow  = e.DataRow
    r("审核") = True
    r.Save()
    '发送审核通过的消息
    QQClient.Send("张三","-@|" & r("单号") & "|" & User.Name)   
End If

QQserver是不是要在云服务器上安装FOXTABLE，然后在里边设置？

有没有关于建立OpenQQ的教学视频？

QQServer放在任意电脑上，打开运行。但是，这台电脑，必须可以能让别的电脑通过ip地址访问得到。