以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]季度 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=106496) |
-- 作者:江南小镇 -- 发布时间:2017/9/10 14:25:00 -- [求助]季度 老师,季度怎样设置。 If e.DataCol.name = "日期" Then Dim dat As Date = e.DataRow("日期") e.DataRow("年") = dat.Year e.DataRow("月") = dat.Month e.DataRow("日") = dat.day e.DataRow("季") = ............... End If
|
-- 作者:y2287958 -- 发布时间:2017/9/10 14:38:00 -- 跟月份走 |
-- 作者:sjx71 -- 发布时间:2017/9/10 14:58:00 -- e.DataRow("季") = (e.DataRow("月") - 1) \\ 3 + 1 |
-- 作者:有点甜 -- 发布时间:2017/9/10 15:19:00 -- 以下是引用sjx71在2017/9/10 14:58:00的发言:
e.DataRow("季") = (e.DataRow("月") - 1) \\ 3 + 1
e.DataRow("季") = (dat.Month - 1) \\ 3 + 1 |
-- 作者:江南小镇 -- 发布时间:2017/9/10 20:12:00 -- 谢谢各位老师 |