以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]请问此功能代码怎么写 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=163071) |
-- 作者:爱秦宣言 -- 发布时间:2021/4/22 15:42:00 -- [求助]请问此功能代码怎么写 目的是要达到,人事在填写离职的时候,在“离职期间”那一栏自动生成(如果是在试用期内离职就生成使用内,在试用期外离职就生成试用外) 是否是转正日期与离职日期的大小来进行判定 [此贴子已经被作者于2021/4/22 15:42:51编辑过]
|
-- 作者:有点蓝 -- 发布时间:2021/4/22 15:53:00 -- 绑定表格的到表格datacolchanged事件处理,比如:http://www.foxtable.com/webhelp/topics/1452.htm |
-- 作者:爱秦宣言 -- 发布时间:2021/4/22 15:58:00 -- 谢谢老师,具体代码写法能列举下不? |
-- 作者:有点蓝 -- 发布时间:2021/4/22 16:02:00 -- 没看懂具体要做什么计算,请截图表格数据说明一下 |
-- 作者:爱秦宣言 -- 发布时间:2021/4/22 16:11:00 -- 如果这名员工试用期是一个月,转正日期是2021 4.21 但是在 4.20就离职了,期间还在试用期内,那就需要在离职期间这里 自动生成 试用内 反正试用期外离职就是试用外 |
-- 作者:有点蓝 -- 发布时间:2021/4/22 16:36:00 -- 判断一下2个日期大小即可 Select Case e.DataCol.Name Case "离职日期","转正日期" Dim dr As DataRow = e.DataRow If dr.IsNull("离职日期") OrElse dr.IsNull("转正日期") Then dr("离职期间") = Nothing Else if dr("离职日期") <= dr("转正日期") dr("离职期间") = "试用内" else dr("离职期间") = "试用外" end if End If
End Select |