以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  推送消息问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=81626)

--  作者:神一样的男人
--  发布时间:2016/3/2 13:31:00
--  推送消息问题

我想把这个表的消息推送给这个人  定时器里面的代码要怎么写 5分钟执行一次 如果有新的消息就提示


图片点击可在新窗口打开查看此主题相关图片如下:111.png
图片点击可在新窗口打开查看

--  作者:神一样的男人
--  发布时间:2016/3/2 13:36:00
--  
帮忙我没看懂 求代码 .....
--  作者:大红袍
--  发布时间:2016/3/2 14:27:00
--  

定时器时间间隔设定为 60*5*1000 毫秒不就行了?

 

循环每一行,把内容发送出去,然后标记此行已发送/或者把此行删除。


--  作者:神一样的男人
--  发布时间:2016/3/2 14:43:00
--  

不知道代码怎么写 能不能给个具体代码 思路我明白 就是不知道代码怎么写


--  作者:大红袍
--  发布时间:2016/3/2 15:06:00
--  
For Each dr As DataRow In DataTables("表A").Select("已发 = false")
    QQClient.Send(dr("第一列"), dr("第三列"), True)
    dr("已发") = True
Next

--  作者:神一样的男人
--  发布时间:2016/3/2 15:10:00
--  
我用的不是QQClient 不用这个怎么写  限制了20人没办法用 
--  作者:大红袍
--  发布时间:2016/3/2 15:12:00
--  

参考

 

http://www.foxtable.com/help/topics/2265.htm

 


--  作者:大红袍
--  发布时间:2016/3/2 15:16:00
--  

如果你要做内部通信,参考下面的例子
 
未读消息提醒
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=34006
 
仿QQ列表
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=33931


纯后台内部通讯
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=29768


QQ聊天软件
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=52825&skin=0


--  作者:神一样的男人
--  发布时间:2016/3/2 15:47:00
--  

我看了这个帮助 我就是没有看明白  

Dim flt As String
Dim
drs As List(Of DataRow)
flt =
"接收者 = \'" & User.Name & "\' And 接收时间 Is Null"
drs =
DataTables("信息表").AppendLoad(flt, False)
For
Each dr As DataRow In drs
    dr(
"接收时间") = Date.Now()
    dr.Save()

Next

 

没有提示信息啊 我昨天测试了 也没明白 没有接收到信息


--  作者:大红袍
--  发布时间:2016/3/2 16:01:00
--  

 1、你代码写到计时器里去了吗?

 

 2、这段代码要这样测试:两个客户端要连接同一个数据库,然后一个客户端在信息表新增行,填入数据,指定接收者(加载条件你可以去掉接收者的条件),保存;然后,另一个客户端,等候刷新即可。