主题：与上一行的日期的天数计算？

有一个表“病情记录单”，表中有列“记录时间”，还有一列是“天数”，现在的问题是，“天数”列是本行与上一行“记录时间”的间隔天数。如示例

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:类似理.zip

，请问这样的代码如何写？

用FIND得到上一行

按示例，给个代码，好吗?

我希望是从后台计算的，

你的示例中没有“病情记录单”这个表

DataColChanged

 

If e.DataCol.Name = "记录时间" AndAlso e.DataRow.IsNull(e.DataCol) = False Then
    Dim dr As DataRow = e.DataTable.Find("_Identify < " & e.DataRow("_Identify"),"_Identify Desc",0)
    If dr IsNot Nothing Then
        Dim tp As TimeSpan = e.DataRow("记录时间") - dr("记录时间")
        e.DataRow("天数") = tp.TotalDays
    Else
        e.DataRow("天数") = 0
    End If
End If

将代码加入后，出现提示

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:是中国.rar

代码

 

Select Case e.DataCol.Name
    Case  "身份证号", "报销起日", "记录时间"
        If e.DataCol.Name = "记录时间" AndAlso e.DataRow.IsNull(e.DataCol) = False Then
            Dim dr As DataRow = e.DataTable.Find("身份证号 = '" & e.DataRow("身份证号") & "' and 报销起日 = #" & e.DataRow("报销起日") & "# and _Identify <> '" & e.DataRow("_Identify") & "' and 记录时间 <= #" & e.DataRow("记录时间") & "#","记录时间 Desc")
            If dr IsNot Nothing Then
                Dim tp As TimeSpan = e.DataRow("记录时间") - dr("记录时间")
                e.DataRow("天数") = tp.TotalDays
            Else
                e.DataRow("天数") = 0
            End If
        End If
End Select

上述示例，增加一个“距今天数“列，若”报销止日“为空，计算[最后一行]距今天的天数;若”报销止日“不为空，则计算[最后一行]距”报销止日“的天数,

Select Case e.DataCol.Name
    Case  "身份证号", "报销起日", "记录时间", "报销止日"
        If e.DataCol.Name = "记录时间" AndAlso e.DataRow.IsNull(e.DataCol) = False Then
            Dim dr As DataRow = e.DataTable.Find("身份证号 = '" & e.DataRow("身份证号") & "' and 报销起日 = #" & e.DataRow("报销起日") & "# and _Identify <> '" & e.DataRow("_Identify") & "' and 记录时间 <= #" & e.DataRow("记录时间") & "#","记录时间 Desc")
            If dr IsNot Nothing Then
                Dim tp As TimeSpan = e.DataRow("记录时间") - dr("记录时间")
                e.DataRow("天数") = tp.TotalDays
            Else
                e.DataRow("天数") = 0
            End If
           
            dr As DataRow  = e.DataTable.Find("身份证号 = '" & e.DataRow("身份证号") & "' and 报销起日 = #" & e.DataRow("报销起日") & "# and 报销止日 is no null", "报销止日 desc")
            If dr IsNot Nothing Then
                Dim tp As TimeSpan = e.DataRow("报销止日") - dr("报销止日")
                e.DataRow("距今天数") = tp.TotalDays
            Else
                e.DataRow("距今天数") = 0
            End If
        End If
End Select