- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 新增一行时日期列如何自动加1天 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=16093)
-- 发布时间：2012/2/2 10:39:00
-- 新增一行时日期列如何自动加1天
新增一行时日期列如何自动加1天。如图在光标选定行
此主题相关图片如下：无标题.gif
-- 发布时间：2012/2/2 10:48:00
--
Dim r1 As Row = Tables("xxx").Current
Dim r2 As Row = Tables("XXX").AddNew()
If r1 IsNot Nothing Then
r2("日期") = r1("日期").AddDays(1)
End If
-- 发布时间：2012/2/2 11:00:00
--
可不可以增加一个条件。在当前表有日期列的时候才自动增加一天呢？ 我的代码如下
Dim r1 As Row =CurrentTable.Current
Dim r2 As Row =CurrentTable.AddNew()
If r1 IsNot Nothing Then
r2("日期") = r1("日期").AddDays(1)
End If
-- 发布时间：2012/2/2 11:04:00
--
If CurrentTable.Cols.Contains("日期") Then
Dim r1 As Row =CurrentTable.Current
Dim r2 As Row =CurrentTable.AddNew()
If r1 IsNot Nothing Then
r2("日期") = r1("日期").AddDays(1)
End If
End If
-- 发布时间：2012/2/2 11:05:00
--
谢谢兄弟