专家坐堂-双击日期列日期（连续）增加问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  双击日期列日期（连续）增加问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145298)

--  作者：hwlzgt
--  发布时间：2020/1/15 11:33:00
--  双击日期列日期（连续）增加问题
请教：在表DoubleClick 双击单元格事件中代码如下：
Select Case e.Col.name
Case "xmjq" \'项目交期
If e.Table.AllowEdit = True Then
Dim dt As Date = e.Row("xmjq")
If dt = Nothing Then
e.Row("xmjq")= Date.Today.AddDays(3)
Else
e.Row("xmjq")= dt.AddDays(1)
End If
End If
End Select

事件只执行了一次，不移动行或是单元格第二次双击就无效了。如何实行连续双击，日期不断增加呢？

--  作者：有点蓝
--  发布时间：2020/1/15 12:03:00
--

Select Case e.Col.name
Case "xmjq" \'项目交期
If e.Table.AllowEdit = True Then
Dim dt As Date = e.Row("xmjq")
If dt = Nothing Then
e.Row("xmjq")= Date.Today.AddDays(3)
Else
e.Row("xmjq")= dt.AddDays(1)
End If
e.Cancel = True
End If
End Select