以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 自动生成本月最后一天的日期 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175814) |
|
-- 作者:rgbjwjb -- 发布时间:2022/3/20 15:12:00 -- 自动生成本月最后一天的日期 表A中有两个日期列:D1和D2,我想实现在D1中输入日期后,D2中自动填入D1当月最后一天的对应的日期(例如:d1中输入:2021-3-8,d2中自动填入2021-3-31)请指教,谢谢! |
|
-- 作者:WELOVEFOX -- 发布时间:2022/3/20 17:36:00 -- If e.DataCol.Name = "d1" Then If e.DataRow.IsNull("d1") Then e.DataRow("d2") = Nothing Else Dim d As Date = e.DataRow("d1") e.DataRow("d2") = new Date(d.year,d.month,Date.DaysInMonth(d.year,d.month)) End If End If |
|
-- 作者:rgbjwjb -- 发布时间:2022/3/21 11:34:00 -- 谢谢 |
|
-- 作者:rgbjwjb -- 发布时间:2022/3/21 21:19:00 -- If e.DataCol.Name = "结清日期" Then If e.DataRow("结清日期") >0 Then If e.DataRow.("结清日期") < #” & e.DataRow("本级补助截止日期") & "# e.DataRow("本级补助截止日期") = e.DataRow("结清日期") End If End If End If 代码错误,请指导修改,谢谢!
|
|
-- 作者:有点蓝 -- 发布时间:2022/3/21 21:28:00 -- 这代码想干嘛? |
|
-- 作者:rgbjwjb -- 发布时间:2022/3/21 21:46:00 -- "本级补助截止日期"、“结清日期”是表的两个列,前面的日期是通过代码生成的,后面的日期是导入的, 我想实现:如果"本级补助截止日期"晚于“结清日期”,就把"本级补助截止日期"更改为“结清日期”。 例如:正常补贴发放到退休,“本级补助发放截止日期”就是其退休日 如果未到退休就发生意外,发生意外日期就是“本级补助发放截止日”,发生意外的日期就是“结清日期”
|
|
-- 作者:有点蓝 -- 发布时间:2022/3/21 22:08:00 -- If e.DataCol.Name = "结清日期" Then If e.DataRow.isnull("结清日期") = false Then If e.DataRow.("结清日期") < e.DataRow("本级补助截止日期") e.DataRow("本级补助截止日期") = e.DataRow("结清日期") End If End If End If
|
|
-- 作者:rgbjwjb -- 发布时间:2022/3/22 19:56:00 -- 保存后提示:编辑错误,应为标识符
|
|
-- 作者:有点蓝 -- 发布时间:2022/3/22 20:20:00 -- 多了个点,自行去掉 |