专家坐堂-关于自动生成时间Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  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=83604)

--  作者：wtt402
--  发布时间：2016/4/13 9:37:00
--  关于自动生成时间
实现一种功能，这张表每天生成一条按时间顺序的记录。。。就是说如果昨天忘记打开，今天打开会把昨天补上去。。
比如每一天要生成两条记录“商品1+今天时间”“商品2+今天时间”。如果今天没有打开，明天打开也能把今天或者只要是时间不是连续的就会自己补上，怎么做。谢谢了

--  作者：Hyphen
--  发布时间：2016/4/13 9:55:00
--
增加一个日期列，记录创建时间。增加记录前判断一下最近的创建时间到今天需要创建多少条记录

--  作者：wtt402
--  发布时间：2016/4/13 10:05:00
--
我也知道这个原理，就是不知道这个判断的代码怎么写

--  作者：wtt402
--  发布时间：2016/4/13 10:43:00
--
希望有代码可以实现，根据日期自动添加补全，保证每天都有一条数据。。。

--  作者：Hyphen
--  发布时间：2016/4/13 10:48:00
--

Dim max As Date
max = DataTables("订单").Compute("Max(订单日期)")
Dim t As TimeSpan = Date.Now - max
Dim d = math.Floor(t.TotalDays)

For i As Integer = 1 To d
Output.Show(max.AddDays(i))
Next

--  作者：wtt402
--  发布时间：2016/4/15 10:12:00
--
如果要分类型怎么加代码来区分，同一张表中比如类型列，1类型要连续日期，2类型也要连续日期，，或者有了3类型4类型也要这样，，该怎么做。。谢谢了

--  作者：大红袍
--  发布时间：2016/4/15 10:14:00
--

For Each lx As String In DataTables("订单").GetValues("类型")
    Dim max As Date
    max = DataTables("订单").Compute("Max(订单日期)", "类型 = \'" & lx & "\'")
    Dim t As TimeSpan = Date.Now - max
    Dim d = math.Floor(t.TotalDays)
    For i As Integer = 1 To d
        Output.Show(lx & " " & max.AddDays(i))
    Next
Next