Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]备注字段按照时间显示的优化


  共有2818人关注过本帖树形打印复制链接

主题：[求助]备注字段按照时间显示的优化
帅哥哟，离线，有人找我吗？
blsu33
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		[求助]备注字段按照时间显示的优化  发帖心情 Post By：2020/12/13 20:37:00 [只看该作者]

老师，求助， nvccsvalue 表的Idvalue 是一个备注列，希望优化这个备注的显示内容，按照每一秒+随机数字显示如何写代码？

Idvalue 值为  
2020-12-13 20:43/20
 2020-12-13 20:44/21
 2020-12-13 20:45/21
............
        
Dim dt As DataTable=DataTables("Archive")
Dim dt2 As DataTable=DataTables("nvccsvalue")
For Each dr As DataRow In dt.DataRows
    If dt2.Compute("count(Valueid)","Valueid='"& dr("Valueid") &"'")>0 Then
        Dim dr1 As DataRow=dt2.find("Valueid='"& dr("Valueid") &"'","timebegin desc")
        If dr1 IsNot Nothing Then
             If Format(dr1("timebegin"),"yyyy-MM-dd")=Format(Date.Now(),"yyyy-MM-dd") Then
                dr1("idvalue")=val(Rand.Next(100))
            Else
                Dim dr3 As DataRow=dt2.AddNew()
                dr3("Valueid")=dr1("Valueid")
                dr3("timebegin")=Date.Now()
                dr3("idvalue")=val(Rand.Next(100))
                dr3.Save()
            End If
        End If
    Else
        Dim dr2 As DataRow=dt2.AddNew()
        dr2("Valueid")=dr("Valueid")
        dr2("timebegin")=Date.Now()
        dr2("idvalue")=val(Rand.Next(100))
        dr2.Save()
        Continue  For
    End If
Next

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:nwcserver.rar
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107754 积分：548109 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/13 21:03:00 [只看该作者]

没看懂，这个意思？
dr3("idvalue")=Format(Date.Now(),"yyyy-MM-dd HH:mm/") & val(Rand.Next(100))

 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2020/12/13 21:17:00 [只看该作者]

每一秒判断后都要加入进去
1天的数据都要加入进去
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2020/12/13 21:18:00 [只看该作者]

相当于写24小时*60分钟*60秒个下面的命令进去
dr3("idvalue")=Format(Date.Now(),"yyyy-MM-dd HH:mm/") & val(Rand.Next(100))

 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2020/12/13 21:20:00 [只看该作者]

数据量有点大，不知道有优化的方法没有

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107754 积分：548109 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/13 21:35:00 [只看该作者]

不懂您的业务，不知道这种用法的实际意义。但是我知道这个功能对数据库来说是一种灾难。建议从业务逻辑上优化

 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2020/12/13 21:53:00 [只看该作者]

老师，
确实是业务就是这样的，怎么写代码呢？

实际业务是，数据变量是按照秒发生，要去记录每一秒的变量，后续只能在数据总量上进行控制，如到一定量清空，或重新加载新数据库。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107754 积分：548109 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/13 22:16:00 [只看该作者]

dr3("idvalue")=dr3("idvalue") & vbcrlf & Format(Date.Now(),"yyyy-MM-dd HH:mm/") & val(Rand.Next(100))

 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2020/12/13 22:22:00 [只看该作者]

老师，这块没问题，我的意思是按照秒判断怎么写？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107754 积分：548109 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/13 22:58:00 [只看该作者]

没理解所谓的按照秒判断指什么。

如果是计时间隔，改为1000即可。如果要计时器不受其他事件影响，参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=138538&skin=0
 回到顶部
总数 28 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询