以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  可不可以增加一个条件。在当前表有日期列的时候才自动增加一天呢？ 我的代码如下  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=16095)
--  作者：ajim
--  发布时间：2012/2/2 11:05:00
--  可不可以增加一个条件。在当前表有日期列的时候才自动增加一天呢？ 我的代码如下

可不可以增加一个条件。在当前表有日期列的时候才自动增加一天呢？ 我的代码如下

Dim r1 As Row =CurrentTable.Current
Dim r2 As Row =CurrentTable.AddNew()
If r1 IsNot Nothing Then

r2("日期") = r1("日期").AddDays(1)

End If
--  作者：blackzhu
--  发布时间：2012/2/2 13:26:00
--  

什么意思?是不是这样?

 

 

IsDate

判断该列是否是日期型。

例如下面的代码列出了订单表的所有日期型列：

Output.Show("订单表中的日期型列有：")

 

For Each dc As DataCol In DataTables("订单").DataCols
    If dc.IsDate Then
        Output.Show(dc.Name)
    End If
Next