如何查出日期列中缺少的日期 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何查出日期列中缺少的日期

共有2165人关注过本帖树形打印复制链接主题：如何查出日期列中缺少的日期

ZJZK2018

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00

如何查出日期列中缺少的日期 发帖心情

Post By：2018/11/30 20:11:00 [显示全部帖子]

一个监理日记表中有个日期列，应该是不能间断的，如何查出日期列中缺少的日期，如果开始日期为2018-05-20，到今天为止如2018-11-30，其中缺少日期提取出来？

ZJZK2018

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00

Post By：2018/11/30 22:41:00 [显示全部帖子]

下面代码虽已达到效果，但感觉代码有点复杂，能否帮我优化一下

Dim lst As new List(of Date)

Dim st As String

For Each dt As Row In Tables("表A").Rows

If lst.Contains(dt("施工日期")) = False Then

lst.Add(dt("施工日期"))

End If

lst.Sort()

Dim t As TimeSpan = lst(lst.Count -1) - lst(0)

For i As Integer = 0 To t.TotalDays

Dim tt As Date = lst(0).AddDays(i)

If lst.Contains(tt) = False Then

st = st & vbcrlf & tt

End If

e.Form.Controls("Label1").text = st

此主题相关图片如下：88848.png

主题：如何查出日期列中缺少的日期