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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  日期问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=45925)

--  作者：cuicuibing
--  发布时间：2014/2/13 15:38:00
--  日期问题
请问如下日期比较问题办法。

创建日期处理日期状态

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

--  作者：狐狸爸爸
--  发布时间：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
--  发布时间：2014/2/13 16:43:00
--

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

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

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

--  作者：狐狸爸爸
--  发布时间：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
--  发布时间：2014/2/13 16:54:00
--
恩，这样可以。我想如果这4个合并到一块如何写出，请教狐爸。可以学习下。

--  作者：狐狸爸爸
--  发布时间：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

--  作者：cuicuibing
--  发布时间：2014/2/13 17:12:00
--
欧奥，好的。

--  作者：JoyGum
--  发布时间：2014/2/13 21:29:00
--  請教狐爸
若創件日期為空，則狀態也為空，若超期如何顯示超期天數。謝謝！

--  作者：有点甜
--  发布时间：2014/2/13 22:10:00
--
回复8楼，大概如下

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

--  作者：JoyGum
--  发布时间：2014/2/13 23:51:00
--

以下是引用有点甜在2014-2-13 22:10:00的发言：
回复8楼，大概如下

For i As Integer = 1 To 4

Select Case e.DataCol.Name

Case "创建日期" & i,"处理日期" & i

Dim dt1 As Date = e.DataRow("创建日期" & i)

If e.DataRow.Isnull("创建日期" & i) Then

e.DataRow("状态" & i) = ""

Else

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

e.DataRow("状态" & i) = tp.TotalDays

End If

End Select

Next

感恩啊！再次謝謝有點甜老師！