以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  年份自动输入  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30864)
--  作者：方沈
--  发布时间：2013/4/5 14:26:00
--  年份自动输入

 

下面代码只能加载年,月,日

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

 

我想只加载年份

比如

增加行是,自动增加年份,比方增加行时,在"年份"列自动加入当前的年份(2013)

增加行时,自动增加年月,比方增加行时,在"年月"列自动加入当前的年月(2013-4)

谢谢
--  作者：FoxMan
--  发布时间：2013/4/5 15:15:00
--  
如想在日期列中只显示 年,加DrawCell事件

If e.Col.Name = "日期" Then
   e.Text = Format(e.row("日期"),"yyyy")  
End IF

否则用数值列代替,分设年,月,日三列
[此贴子已经被作者于2013-4-5 15:15:01编辑过]
--  作者：有点甜
--  发布时间：2013/4/6 11:34:00
--  

如果你想增加行的时候，自动输入年月，可以看看这个事件：

 

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

 

例如:

 

e.DataRow("日期") = Date.Today()
e.DataRow("年") = format(Date.Today(),"yyyy")
e.DataRow("年月") = format(Date.Today(),"yyyy-MM")

 

根据需要写代码就行了。