以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]openQQ  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88369)
--  作者：g1j2h3
--  发布时间：2016/8/1 18:28:00
--  [求助]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)

[此贴子已经被作者于2016/8/1 18:32:42编辑过]
--  作者：大红袍
--  发布时间：2016/8/1 18:49:00
--  

3、写到DataColChanged事件

 

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

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

End If
--  作者：大红袍
--  发布时间：2016/8/1 18:50:00
--  

4、同样写到dataColChanged

 

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

[此贴子已经被作者于2016/8/1 18:50:09编辑过]
--  作者：g1j2h3
--  发布时间：2016/8/1 18:52:00
--  
谢谢老师，这么晚还麻烦您们！
--  作者：cd_tdh
--  发布时间：2016/8/2 13:01:00
--  
客户端查看按钮怎么定位到需要审核的行呢？
--  作者：Hyphen
--  发布时间：2016/8/2 14:05:00
--  
find
http://www.foxtable.com/webhelp/scr/0396.htm
--  作者：g1j2h3
--  发布时间：2016/8/3 9:15:00
--  

QQserver是不是要在云服务器上安装FOXTABLE，然后在里边设置？
--  作者：g1j2h3
--  发布时间：2016/8/3 9:43:00
--  

有没有关于建立OpenQQ的教学视频？
--  作者：大红袍
--  发布时间：2016/8/3 10:04:00
--  
以下是引用g1j2h3在2016/8/3 9:15:00的发言：

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

 

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