以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]备注字段按照时间显示的优化  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=159088)
--  作者：blsu33
--  发布时间：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
--  作者：有点蓝
--  发布时间：2020/12/13 21:03:00
--  
没看懂，这个意思？
dr3("idvalue")=Format(Date.Now(),"yyyy-MM-dd HH:mm/") & val(Rand.Next(100))
--  作者：blsu33
--  发布时间：2020/12/13 21:17:00
--  
每一秒判断后都要加入进去
1天的数据都要加入进去
--  作者：blsu33
--  发布时间：2020/12/13 21:18:00
--  
相当于写24小时*60分钟*60秒个下面的命令进去
dr3("idvalue")=Format(Date.Now(),"yyyy-MM-dd HH:mm/") & val(Rand.Next(100))
--  作者：blsu33
--  发布时间：2020/12/13 21:20:00
--  
数据量有点大，不知道有优化的方法没有
--  作者：有点蓝
--  发布时间：2020/12/13 21:35:00
--  
不懂您的业务，不知道这种用法的实际意义。但是我知道这个功能对数据库来说是一种灾难。建议从业务逻辑上优化
--  作者：blsu33
--  发布时间：2020/12/13 21:53:00
--  
老师，
确实是业务就是这样的，怎么写代码呢？

实际业务是，数据变量是按照秒发生，要去记录每一秒的变量，后续只能在数据总量上进行控制，如到一定量清空，或重新加载新数据库。
--  作者：有点蓝
--  发布时间：2020/12/13 22:16:00
--  
dr3("idvalue")=dr3("idvalue") & vbcrlf & Format(Date.Now(),"yyyy-MM-dd HH:mm/") & val(Rand.Next(100))
--  作者：blsu33
--  发布时间：2020/12/13 22:22:00
--  
老师，这块没问题，我的意思是按照秒判断怎么写？
--  作者：有点蓝
--  发布时间：2020/12/13 22:58:00
--  
没理解所谓的按照秒判断指什么。

如果是计时间隔，改为1000即可。如果要计时器不受其他事件影响，参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=138538&skin=0