主题：工龄自动计算问题

你用代码增加的临时列，重新打开后，肯定就不存在了的。

工龄列通过菜单增加，在AfterOpenProject事件加入代码：

Dim dt As DataTable = DataTables("集团员工档案")
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

设置这个表的DAtaColChanged事件：
 
Select Case e.DataCol.Name
    case “入司时间"

         Dim dr As datarow = e.Datarow
         if dr.IsNull("入司时间") Then

                dr("工龄") = Nothing

         else

               dr("工齡") = Math.Round(DateDiff("m",dr("入司时间"),Date.Today())/12,1)

         end if

End Select