主题：怎样计算工龄

以下是引用TONIVISION在2011-9-15 15:39:00的发言：

请教一下朋友DON，这个“年龄”列是数据列呢？还是表达式列？

 

1）如果是数据列，对于我来说有点不现实，因为我的表是外部表，那里本来就没有“工龄”这个字段；

 

2）如果是表达式列，我试了一下，好象表达式列是只读的，不能修改，是不是还要通过代码，重新定义表达式列呢？

 

总之，如果是这样的话，我觉得真的是太复杂了，我们能找到更简单的方法吗？

 

谢谢先！

----------------------------------------------------

在狐表中用臨時列計算工齡:

Dim dt As DataTable = DataTables("A")

If dt.DataCols.Contains("工齡") = False Then  

    dt.DataCols.Add("工齡", Gettype(Double))

End If

Dim drs As New List(of DataRow)

drs = dt.Select("日期 is not Null")

For Each dr As DataRow In drs

    dr("工齡") = Math.Round(DateDiff("m",dr("日期"),Date.Today())/12,1)

Next