以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  我建了一个计划，每30秒向用户在线计数中写入相关信息，为什么没有运行？ 请专家帮我看下是哪里的问题。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=55045)
--  作者：jinxilin
--  发布时间：2014/8/9 15:56:00
--  我建了一个计划，每30秒向用户在线计数中写入相关信息，为什么没有运行？ 请专家帮我看下是哪里的问题。
我新建了一个 计划1
时间是30秒，30000
计划向用户在线计数表中两列写入用户名和时间，


Dim tbl As Table = Tables("用户在线计数")   \'将相关位置信息写入要的表中\'
If tbl.Current IsNot Nothing Then
    Tables("用户在线计数").Current("用户名") =  _UserName 
    Tables("用户在线计数").Current("在线时间") = Date.Today
End If



在用户登录按钮上写了开始计划，

MyTimers("计划1").Enabled = True  \'开始计划1
--  作者：Bin
--  发布时间：2014/8/9 16:23:00
--  
1.代码不会不允许
2.你为表当前行写入数据,没什么意义啊
--  作者：jinxilin
--  发布时间：2014/8/9 16:26:00
--  
以下是引用Bin在2014-8-9 16:23:00的发言：
1.代码不会不允许
2.你为表当前行写入数据,没什么意义啊

先写入数据，我再统计最近时间的数据条数了， 问题是现在不写入啊，是怎么回事？
--  作者：有点甜
--  发布时间：2014/8/10 9:42:00
--  

 回复3楼，你单独运行，是否正常？不可能不写入

 

im tbl As Table = Tables("用户在线计数")   \'将相关位置信息写入要的表中\'

If tbl.Current IsNot Nothing Then
    Tables("用户在线计数").Current("用户名") =  _UserName 
    Tables("用户在线计数").Current("在线时间") = Date.Today
End If
--  作者：逛逛
--  发布时间：2014/8/10 9:59:00
--  

没看明白楼主的逻辑

 

1、没有新增行的动作。  这样重复修改一行的数据并无意义。

 

2、没有保存行的动作。不会及时反映用户在线状况。