datacolchanged事件代码

If e .DataCol . Name = "身份证号码" Then
    If e .DataRow . IsNull( "身份证号码" ) Then
        e .DataRow ( "出生日期" ) = Nothing
        e .DataRow ( "性别") = Nothing
    Else
        e .DataRow ( "出生日期" ) = ReadBirthday ( e. DataRow ("身份证号码" ))
        e .DataRow ( "性别") = ReadSex (e .DataRow ( "身份证号码" ))
    End If
End If

Select Case e.DataCol.name
    Case "入职时间","离职时间"
        If e.DataRow.IsNull("入职时间") Then
            e.DataRow("工龄") = Nothing
        Else
            If e.DataRow.IsNull("离职时间") Then
                Dim tp As TimeSpan = Date.today - CDate(e.DataRow("入职时间"))
                e.DataRow("工龄") = Math.Round(tp.TotalDays / 365.2422,2)
                e.DataRow("员工类型") = "在职"
            Else
                Dim tp As TimeSpan = cdate(e.DataRow("离职时间")) - CDate(e.DataRow("入职时间"))
                e.DataRow("工龄") = Math.Round(tp.TotalDays / 365.2422,2)
                e.DataRow("员工类型") = "离职"
            End If
        End If
End Select

If e.DataCol.Name = "离职时间" Then
    If e.DataRow.isnull("离职时间") = False Then
        e.DataRow("员工类型") = "离职"
    Else
        e.DataRow("员工类型") = "在职"
    End If
End If

做一个按钮，重置列即可

http://www.foxtable.com/help/topics/1587.htm