以文本方式查看主题

-  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
--  
保存后提示:编辑错误,应为标识符
        If  e.DataRow.("结清日期") < e.DataRow("本级补助截止日期")
         

--  作者:有点蓝
--  发布时间:2022/3/22 20:20:00
--  
多了个点,自行去掉