主题：[求助]工龄计算代码?

求表Data ColChabged事件代码?

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

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

参考

 

http://www.foxtable.com/webhelp/scr/2647.htm

 

此主题相关图片如下：捕获333.jpg

不知道如何修改?是列属性有问题吗?

Select Case e.DataCol.name
    Case "入伍日期"
        If e.DataRow.IsNull("入伍日期") Then
            e.DataRow("工龄") = Nothing
        Else
            Dim y,m,d As Integer
            DateYMD(cdate(e.DataRow("入伍日期")),Date.Today,y,m,d)
            e.DataRow("工龄") = y & "年" & m & "月"
        End If
End Select

谢谢!可是我还想让月份能是两位数,又要如何修改代码呢?

 就是说格式:yy年mm月

Select Case e.DataCol.name
    Case "入伍日期"
        If e.DataRow.IsNull("入伍日期") Then
            e.DataRow("工龄") = Nothing
        Else
            Dim y,m,d As Integer
            DateYMD(cdate(e.DataRow("入伍日期")),Date.Today,y,m,d)
            e.DataRow("工龄") = format(y, "00") & "年" & format(m, "00") & "月"
        End If
End Select