| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]求[年度列]的默认值代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114908) |
| -- 作者：老鼠 -- 发布时间：2018/2/26 5:14:00 -- [求助]求[年度列]的默认值代码 如题:年度列格式为yyyy,来源为系统日期. |
| -- 作者：huangfanzi -- 发布时间：2018/2/26 8:28:00 -- 下面是我的项目中表事件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编辑过]
|
| -- 作者：有点甜 -- 发布时间：2018/2/26 9:30:00 -- dataRowAdded事件，写代码
e.DataRow("年度") = Date.Today.Year |