关于天数自动更新的问题

      有一数据表，其中有“入职时间”列和“入职天数”列。以下代码可以做到输入入职时间并确认后，可当时显示入职天数。但随着时间的变化，入职天数却不发生相应的变化。以下代码应该如何修改，才能让入职天数每天都能自动更新呢（因为入职天数每天都在增加）？

Select Case e.DataCol.name
Case "入职时间"
If e.DataRow.IsNull("入职时间") Then
e.DataRow("入职天数") = Nothing
Else
Dim tp As TimeSpan = Date.today - CDate(e.DataRow("入职时间"))
e.DataRow("入职天数") = Math.Round(tp.TotalDays )
End If

这要看你对入职天数调用方式。

只是在查看数据表时想看到最新天数：

1、打开数据表，选中入职时间列，点击重置列菜单按钮；

2、在MainTableChanged事件中：

If MainTable.Name = "XX数据表" Then
    Tables("XX数据表").Cols("入职时间").DataCol.RaiseDataColChanged()
End If

有其他代码经常调用这个入职天数：

在AfterOpenProject事件中:

DataTables("XX数据表").DataCols("入职时间").RaiseDataColChanged()

此主题相关图片如下：截图.jpg

For Each dr As DataRow In DataTables("职工基本信息")
  Dim tp As TimeSpan = Date.today - CDate(dr("入职时间"))
  dr("入职天数") = Math.Round(tp.TotalDays )
Next

以上代码可能要修改，没有通过。

For Each dr As DataRow In DataTables("职工基本信息")
  Dim tp As TimeSpan = Date.today - CDate(dr("入职时间"))
  dr("入职天数") = Math.Round(tp.TotalDays )
Next

上面的代码，你原来是放在DataColChanged事件中，怎么挪个地方了？

有了这段代码，下面的代码才有作用：

只是在查看数据表时想看到最新天数：

1、打开数据表，选中入职时间列，点击重置列菜单按钮；

2、在MainTableChanged事件中：

If MainTable.Name = "XX数据表" Then
    Tables("XX数据表").Cols("入职时间").DataCol.RaiseDataColChanged()
End If

有其他代码经常调用这个入职天数：

在AfterOpenProject事件中:

DataTables("XX数据表").DataCols("入职时间").RaiseDataColChanged()

你把第一句改一下试试

For Each dr As DataRow In DataTables("职工基本信息").datarows

For Each dr As DataRow In DataTables("职工基本信息").datarows

以上代码可以正确生成入职天数，但是"入职时间"列为空时，则在"入职天数"列显示735086（天），如何修改以上代码，在"入职时间"列为空时，则在"入职天数"列中什么都不显示。