以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如下图,每个人根据年度,在工作年限时每增加一年,自动增加1,如何实现?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115646)

--  作者:hrw68529
--  发布时间:2018/3/11 11:33:00
--  [求助]如下图,每个人根据年度,在工作年限时每增加一年,自动增加1,如何实现?
如图:
图片点击可在新窗口打开查看此主题相关图片如下:截图00.jpg
图片点击可在新窗口打开查看
假如2017年,在“工作年限”中有一个基数了,如果年度填写的是2018年,在“工作年限”中增加一年,如果填写的是2019年,在“工作年限”中增加2年,如何实现,谢谢。

--  作者:newsun2k
--  发布时间:2018/3/11 13:53:00
--  
year(getdate()) - year(年度)
--  作者:有点甜
--  发布时间:2018/3/11 20:17:00
--  

Dim fdr As DataRow = e.DataTable.find("工作年限 is not null and 姓名 = \'" & e.datarow("姓名") & "\'", "工作年限")

If fdr IsNot Nothing then

    e.datarow("工作年限") = e.datarow("年度") - fdr("年度") + fdr("工作年限")

End If

 


--  作者:hrw68529
--  发布时间:2018/3/12 8:32:00
--  
谢谢有点甜,