年份自动输入 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 年份自动输入

共有7664人关注过本帖树形打印复制链接主题：年份自动输入

方沈

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：277 积分：2866 威望：0 精华：0 注册：2012/2/3 19:30:00

年份自动输入 发帖心情

Post By：2013/4/5 14:26:00 [只看该作者]

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

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

我想只加载年份

比如

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

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

谢谢

FoxMan

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：302 积分：1860 威望：0 精华：0 注册：2012/4/27 11:34:00

Post By：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编辑过]

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2013/4/6 11:34:00 [只看该作者]

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

例如:

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

根据需要写代码就行了。

主题：年份自动输入