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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 日期问题

共有4176人关注过本帖树形打印复制链接主题：日期问题

cuicuibing

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

加好友

发短信

等级：一尾狐帖子：405 积分：3578 威望：0 精华：0 注册：2014/1/8 17:12:00

日期问题

Post By：2014/2/13 15:38:00 [只看该作者]

请问如下日期比较问题办法。

创建日期处理日期状态

1、如果处理日期比创建日期大于等于1天状态显示超期

2、如果处理日期为空，系统日期比创建日期大于等于1天状态显示超期

狐狸爸爸

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

加好友

发短信

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

Post By：2014/2/13 15:44:00 [只看该作者]

DataColChanged事件：

Select Case e.DataCol.Name
    Case "创建日期","处理日期"
         Dim dt1 As Date = e.DataRow("创建日期")
         Dim dt2 As Date
         If e.DataRow.Isnull("处理日期") Then
           dt2 = Date.Today
         Else
           dt2= e.DataRow("处理日期")
         End If
         Dim tp As TimeSpan = dt2- dt1
         If tp.TotalDays > 1 Then
            e.DataRow("状态") = "超期"
        Else
            e.DataRow("状态") = ""
        End If
End Select

cuicuibing

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

加好友

发短信

等级：一尾狐帖子：405 积分：3578 威望：0 精华：0 注册：2014/1/8 17:12:00

Post By：2014/2/13 16:43:00 [只看该作者]

请教狐爸刚才提问问题，如果是多个处理日期及状态，如何写出简化代码，

语言基础差，感觉应该用循环，但自己写不出，先判断如果变动的是创建日期，循环判断状态1到4，如果为空，跟系统时间比较。不为空跳过。如果变动的分别是处理日期1或者2或者3或者4，那么先判断对应的状态是否为空，如果不为空，不处理，只保存处理日期。如果状态为空，比较处理日期与创建日期差，决定状态。

创建日期处理日期1 状态1 处理日期2 状态2 处理日期3 状态3 处理日期4 状态4

狐狸爸爸

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

加好友

发短信

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

Post By：2014/2/13 16:46:00 [只看该作者]

不会的，就简单哈，复制粘贴代码：

Select Case e.DataCol.Name
    Case "创建日期1","处理日期1"
         Dim dt1 As Date = e.DataRow("创建日期1")
         Dim dt2 As Date
         If e.DataRow.Isnull("处理日期1") Then
           dt2 = Date.Today
         Else
           dt2= e.DataRow("处理日期1")
         End If
         Dim tp As TimeSpan = dt2- dt1
         If tp.TotalDays > 1 Then
            e.DataRow("状态1") = "超期"
        Else
            e.DataRow("状态") = ""
        End If
End Select

Select Case e.DataCol.Name
    Case "创建日期2","处理日期2"
         Dim dt1 As Date = e.DataRow("创建日期2")
         Dim dt2 As Date
         If e.DataRow.Isnull("处理日期2") Then
           dt2 = Date.Today
         Else
           dt2= e.DataRow("处理日期2")
         End If
         Dim tp As TimeSpan = dt2- dt1
         If tp.TotalDays > 1 Then
            e.DataRow("状态2") = "超期"
        Else
            e.DataRow("状态2") = ""
        End If
End Select

cuicuibing

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

加好友

发短信

等级：一尾狐帖子：405 积分：3578 威望：0 精华：0 注册：2014/1/8 17:12:00

Post By：2014/2/13 16:54:00 [只看该作者]

恩，这样可以。我想如果这4个合并到一块如何写出，请教狐爸。可以学习下。

狐狸爸爸

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

加好友

发短信

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

Post By：2014/2/13 17:06:00 [只看该作者]

For i As Integer = 1 To 4
    Select Case e.DataCol.Name
        Case "创建日期" & i,"处理日期" & i
            Dim dt1 As Date = e.DataRow("创建日期" & i)
            Dim dt2 As Date
            If e.DataRow.Isnull("处理日期" & i) Then
                dt2 = Date.Today
            Else
                dt2= e.DataRow("处理日期" & i)
            End If
            Dim tp As TimeSpan = dt2- dt1
            If tp.TotalDays > 1 Then
                e.DataRow("状态" & i) = "超期"
            Else
                e.DataRow("状态" & i) = ""
            End If
    End Select
Next