[求助]求[年度列]的默认值代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下面是我的项目中表事件DataColChanged用的代码，当录入起始时间后，月份列与日期列为以文本的形式返回年-月及年-月-日，你可以参照改下

'月份及日期生成模块

If e.DataCol.Name = "起始时间" Then

e.DataRow("月份")=Format(e.DataRow("起始时间"),"yyyy-MM")

e.DataRow("日期")=Format(e.DataRow("起始时间"),"yyyy-MM-dd")

End If

在命令窗口中的代码例子如下：

Dim d As String

d = Format(Date.Now,"yyyy")

output.Show(d)

Format的用法你可以看帮助文件中的“格式化日期和时间”，上面有详细介绍。

[此贴子已经被作者于2018/2/26 8:34:07编辑过]

主题：[求助]求[年度列]的默认值代码