主题：关于天数自动更新的问题

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

 

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

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("职工基本信息")
  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()