求助：当表B中的时间列，怎么在新增时间值时候，判断时间值已经含有了某个时间，进而只新增没有的时间值。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

求助：

表B根据表A中的更新时间和指定时间之差，计算出了天数，然后表B对应增加天数，列出所有时间。

当表A中的时间列，怎么在新增时间值时候，判断时间值已经含有了某个时间，进而只新增没有的时间值。

假设表A中已含有

2014-12-01

2014-12-02

那么新增就从2014-12-03开始，之前的不要动

形成连贯数据

2014-12-01

2014-12-02

2014-12-03

基础代码如下：【请指导怎么写判断代码，下面的代码运行效果不理想】

Dim ab As Date =DataTables("表A").compute("Max(更新时间)")

Dim abc As Date ="2014-12-01"

Dim t As TimeSpan = ab - abc

Dim dr As DataRow

DataTables("表A").StopRedraw

For i As Integer = 0 To t.Days

dr = DataTables("表B").AddNew()

Dim str As Date = abc.AddDays(i)

Dim fdr As DataRow = DataTables("表B").Find("操作日期 = '" & Format(str, "yyy-MM-dd") & "'")

If fdr IsNot Nothing Then

msgbox("已存在")

e.Cancel = True

else

dr("操作日期") = Format(str, "yyy-MM-dd")

End If

DataTables("表B").ResumeRedraw

计算后会有重复值出现，且还有空白值。

代码没有问题吧有点蓝老师

麻烦看看

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

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试.table

第一次按钮可以获取如图1的数据

第二次按钮就直接成为了空数据，但是行数依然是十行

求修正为第二次按钮操作依然保持只有十行和表A一样的数据

如果表A新增一个时间那么表B没有点按钮的时候就将该新增的数据写入表B 已有的数据依然保持

按钮事件代码：

Dim ab As Date =DataTables("表A").compute("Max(更新时间)")

Dim abc As Date ="2012-12-01"

Dim t As TimeSpan = ab - abc

Dim dr As DataRow

’DataTables("表A").StopRedraw

For i As Integer = 0 To t.Days

dr = DataTables("表B").AddNew()

Dim str As Date = abc.AddDays(i)

dr("操作日期") = Format(str, "yyy-MM-dd")

’DataTables("表A").ResumeRedraw

表B事件列变化前代码

If e.DataCol.Name = "操作日期" Then

Dim fdr As DataRow = DataTables("表B").Find("操作日期 = '" & Format(e.NewValue, "yyy-MM-dd") & "'")

If fdr IsNot Nothing Then

e.Cancel = True

End If

[此贴子已经被作者于2016/11/6 22:50:44编辑过]

主题：求助：当表B中的时间列，怎么在新增时间值时候，判断时间值已经含有了某个时间，进而只新增没有的时间值。