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

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

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

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2008/10/29 16:38:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目22.table

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2008/10/29 17:19:00 [显示全部帖子]

哈哈，还说不难，我看得头晕了。
你这个是香港日期吧，不适合大陆日期。

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2008/10/29 19:12:00 [显示全部帖子]

以下是引用表之狂在2008-10-29 18:22:00的发言：
老六，以上的解决方法都复杂，你还是尽快解决到像易表那样，不太复杂的功能用表达式解决不是更好吗。

下面的代码，难道不比易表清晰易懂多了吗？

If e.DataCol.Name = "日期" Then
    If e.NewValue Is Nothing Then
        e.Datarow("月份") = Nothing
    Else
        Dim d As Date = e.NewValue
        Dim m As Integer = d.Month
        If d.Day > 25 Then
            m = m + 1
        End If
        If m = 13 Then
           m = 1
        End If
        e.DataRow("月份") = m
    End If
End If

[此贴子已经被作者于2008-10-29 19:12:39编辑过]

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

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