- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]请问此功能代码怎么写 (http://www.foxtable.com/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("离职期间") = "试用内"
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
End Select