以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求代码 以OK！  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=16072)
--  作者：lsf5138
--  发布时间：2012/2/1 16:10:00
--  求代码 以OK！

假定新增行的 日期 列是 2012-01-12 现在要让 年份 列自动输入 2012

求表事件的代码

[此贴子已经被作者于2012-2-2 0:31:11编辑过]
--  作者：狐狸爸爸
--  发布时间：2012/2/1 16:38:00
--  

用表达式列即可：

http://www.foxtable.com/help/topics/1285.htm

 
--  作者：lsf5138
--  发布时间：2012/2/1 18:54:00
--  

年份列是用于做表间关联的，所以不能是表达式列。
--  作者：ahbzczy
--  发布时间：2012/2/1 21:23:00
--  

DataColChanged事件

Select Case e.DataCol.Name
    Case "日期"
        If e.DataRow.IsNull("日期") Then
            e.DataRow("年份") = Nothing
        Else
            e.DataRow("年份") = cdate(e.DataRow("日期")).year
        End If
End Select

 

DataRowAdding事件

e.DataRow("日期") = Date.Today

[此贴子已经被作者于2012-2-1 21:23:39编辑过]
--  作者：lsf5138
--  发布时间：2012/2/2 0:30:00
--  

非常感谢！ OK