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


  共有3150人关注过本帖树形打印复制链接

主题:[求助]代码出错

帅哥哟,离线,有人找我吗?
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
End If
意在采用小数点计算工龄,但计算不出来。请教为什么?
[此贴子已经被作者于2024/1/8 18:47:06编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110572 积分:562750 威望: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

今天这个代码又可以用了,但用在表事件中,不出计算结果。列属性用双精度与单精度都一样。

[此贴子已经被作者于2024/1/9 10:59:56编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110572 积分:562750 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/1/9 11:04:00 [只看该作者]

已有的数据,编辑代码后,必须重置列一次

 回到顶部
帅哥哟,离线,有人找我吗?
iyplx2425
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:45 积分:348 威望:0 精华:0 注册:2018/2/5 14:31:00
  发帖心情 Post By:2024/1/9 12:31:00 [只看该作者]

重置也不出计算结果。
另外,有起始日期,求N个月后的截止日期,代码怎么写?谢谢。
代码一时半会记不了,多用才能逐步记住。
[此贴子已经被作者于2024/1/9 13:45:14编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110572 积分:562750 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/1/9 13:33:00 [只看该作者]

选中"入职日期"列在重置

 回到顶部
帅哥哟,离线,有人找我吗?
iyplx2425
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:45 积分:348 威望:0 精华:0 注册:2018/2/5 14:31:00
  发帖心情 Post By:2024/1/9 13:43:00 [只看该作者]

工龄问题解决了。
有起始日期,求N个月后的截止日期,代码怎么写?谢谢。
[此贴子已经被作者于2024/1/9 13:44:00编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110572 积分:562750 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/1/9 13:46:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
iyplx2425
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:45 积分:348 威望:0 精华:0 注册:2018/2/5 14:31:00
  发帖心情 Post By:2024/1/9 13:47:00 [只看该作者]

另外,狐表中的表达式是不是只能进行数学运算,而不是像易表那样可以使用函数?
[此贴子已经被作者于2024/1/9 13:48:32编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110572 积分:562750 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/1/9 13:49:00 [只看该作者]


 回到顶部
总数 32 1 2 3 4 下一页