[求助]代码出错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]代码出错

共有3356人关注过本帖树形打印复制链接主题：[求助]代码出错

iyplx2425

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：45 积分：348 威望：0 精华：0 注册：2018/2/5 14:31:00

[求助]代码出错 发帖心情

Post By：2024/1/8 18:38:00 [只看该作者]

一、狐表的帮助中搜索“日期”，选“年龄和工龄的精确计算”，方法一DataColChanged事件代码，复制到表中，代码不存在了，变成了一长串日期；复制到帖子里，复制不了，而且引起帖子界面出错退出（无法在此粘贴）。不知为什么？

二、将该代码改成如下：

If e.DataCol.Name = "入职日期" Then

If e.DataRow.IsNull("入职日期") Then '如果没有输入出生日期

e.DataRow("工龄") = Nothing '则清空年龄

Else

'否则计算年龄

e.DataRow("工龄") =Math.Round( Date.Today.Year - e.DataRow("入职日期").Year,2)

End If

意在采用小数点计算工龄，但计算不出来。请教为什么？

[此贴子已经被作者于2024/1/8 18:47:06编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110790 积分：563882 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/1/8 20:18:00 [只看该作者]

1、我测试没有问题，请上传实例说明

2、Year 本来就是整数，整数和整数加减怎么可能出来小数？

iyplx2425

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：45 积分：348 威望：0 精华：0 注册：2018/2/5 14:31:00

Post By：2024/1/9 10:59:00 [只看该作者]

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 / 365.2422,2)
        End If
End Select