以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  日期自动加1天  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=160551)
--  作者：蓝蚂蚁
--  发布时间：2021/2/5 18:04:00
--  日期自动加1天
表结构：
日期                                 件数
2021-01-01                         2

问题：当在件数列输入2，同时按会车键，则增加新一行，并且新增加那一行的日期列自动变成2021-01-02，（后面的新增加行依此类推，如果是每月最后一天，那么新增加一行的话，其日期变成下一个月的第一天）。
--  作者：cnsjroom
--  发布时间：2021/2/5 19:27:00
--  回复：（蓝蚂蚁）日期自动加1天
Dim d As Date = #2/28/2021#
Dim d1 As Date = d.AddDays(1) \'加上40天
Dim d2 As Date = d.AddDays(-1) \'减去40天
Output.Show("1天后的日期:" & d1)
Output.Show("1天前的日期:" & d2)

1天后的日期:2021-03-01
1天前的日期:2021-02-27
--  作者：有点蓝
--  发布时间：2021/2/7 8:58:00
--  
KeyDownEdit事件

If e.row.index = e.Table.Rows.count - 1 andalso e.col.name = "件数" AndAlso e.KeyCode = Keys.Enter
    e.cancel = True
    Dim r As Row = e.Table.addnew
    r("日期") = e.row("日期").AddDays(1)
End If
--  作者：蓝蚂蚁
--  发布时间：2021/2/8 19:43:00
--  

有点蓝老师，为什么是KeyDownEdit，而不是KeyDown事件？
--  作者：有点蓝
--  发布时间：2021/2/8 20:41:00
--  
可以2个事件都设置。

如果是在编辑状态录入数据的时候回车，就是KeyDownEdit

如果不是编辑状态，比如选中单元格，还没有编辑，就是KeyDown事件