共5 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：新增一行时日期列如何自动加1天
1楼
ajim 发表于：2012/2/2 10:39:00新增一行时日期列如何自动加1天。如图在光标选定行
此主题相关图片如下：无标题.gif
2楼
狐狸爸爸 发表于：2012/2/2 10:48:00Dim r1 As Row = Tables("xxx").Current
Dim r2 As Row = Tables("XXX").AddNew()
If r1 IsNot Nothing Then
r2("日期") = r1("日期").AddDays(1)
End If
3楼
ajim 发表于：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
4楼
czy 发表于：2012/2/2 11:04:00If 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
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
5楼
ajim 发表于：2012/2/2 11:05:00谢谢兄弟
共5 条记录, 每页显示 10 条, 页签:
[1]