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

关于天数自动更新的问题

 

 

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

 

 

 

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

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

谢谢各位了！我试一试，如果有不清楚时再请教。

此主题相关图片如下：截图.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("职工基本信息").datarows

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

 

 

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

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

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

IF dr.isnull("入职天数")=false then

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

 

 

 

没有通过，请帮忙修改，先谢了！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.zip

请大师们指教！

谢谢Bin老师！