简单问题（求月份） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 简单问题（求月份）

共有23405人关注过本帖树形打印复制链接主题：简单问题（求月份）

ylm

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

加好友

发短信

等级：超级版主帖子：312 积分：3190 威望：0 精华：6 注册：2008/8/31 19:42:00

Post By：2008/10/29 21:28:00 [只看该作者]

我也是喜欢之前那种方式.可读性好点.

don

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

加好友

发短信

等级：八尾狐帖子：1812 积分：12993 威望：0 精华：14 注册：2008/10/11 18:07:00

Post By：2008/10/29 21:49:00 [只看该作者]

以下是引用狐狸爸爸在2008-10-29 21:22:00的发言：
呵呵，那我以简单点：

If e.DataCol.Name = "日期" Then
Dim d As Date = e.NewValue
e.DataRow("月份") = iif(e.NewValue Is Nothing,Nothing, iif(d.day<= 25,d.month,(d.month + 1) mod 12))
End If

不过我还是喜欢之前那种方式，虽然长一点，但是可读性强多了。

[此贴子已经被作者于2008-10-29 21:25:33编辑过]

请教这里为何可以是表达式？
iif(e.NewValue Is Nothing,Nothing, iif(d.day<= 25,d.month,(d.month + 1) mod 12))

[此贴子已经被作者于2008-10-29 21:57:41编辑过]