- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 保质期（含小时）计算 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107797)
-- 发布时间：2017/10/10 13:11:00
-- 保质期（含小时）计算
有点甜老师：你好！
怎样设置，才能是保质时间显示：天数+小时
Select Case e.DataCol.Name
Case "到期日期"
Dim dr As DataRow = e.DataRow
If dr.IsNull("到期日期") Then
dr("保质时间") = Nothing
Else
Dim tp As TimeSpan = dr("到期日期") - Date.Today
Case "到期日期"
Dim dr As DataRow = e.DataRow
If dr.IsNull("到期日期") Then
dr("保质时间") = Nothing
Else
Dim tp As TimeSpan = dr("到期日期") - Date.Today
dr("保质时间") = tp.TotalDays
End If
End Select
End If
End Select
-- 发布时间：2017/10/10 14:08:00
--
Select Case e.DataCol.Name
Case "到期日期"
Dim dr As DataRow = e.DataRow
If dr.IsNull("到期日期") Then
dr("保质时间") = Nothing
Else
Dim tp As TimeSpan = dr("到期日期") - Date.Now
dr("保质时间") = tp.Days & ":" & tp.Hours
End If
End Select
-- 发布时间：2017/10/10 14:22:00
--
有点甜老师：
弹出提示：
此主题相关图片如下：提示.png
此主题相关图片如下：提示.png-- 发布时间：2017/10/10 14:25:00
--
已解决，谢谢！
-- 发布时间：2017/10/10 14:28:00
--
http://www.foxtable.com/webhelp/scr/1517.htm
[此贴子已经被作者于2017/10/10 14:28:06编辑过]