| 以文本方式查看主题 - 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=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 -- 多了个点，自行去掉 |