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

关于天数自动更新的问题

 

 

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

 

 

 

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

如果天数自动更新有困难，手动一键更新也行，需要使用入职天数的数据时按下“该更新键”即可。请问一键更新的代码如何写？先谢了！

DataTables("表A").DataCols("第二列").RaiseDataColChanged   每次打开项目使用代码触发一下Datacolchanged事件即可. 也可以整个按钮再需要时触发.

可以在 afteropenproject事件中加入类似代码：  dr("入职天数") = Math.Round(tp.TotalDays )

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

 

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

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

Dim tp As TimeSpan = Date.today - CDate(dr("入职时间"))   dr("入职天数") = Math.Round(tp.TotalDays ) Next

 

 

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