- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114200)
-- 发布时间：2018/1/31 15:36:00
-- 求助
-- 发布时间：2018/1/31 15:40:00
--
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "到货_第一批到货数量","到货_第二批到货数量","到货_第三批到货数量","到货_第四批到货数量"
dr("到货数量") = dr("到货_第一批到货数量") + dr("到货_第二批到货数量") + dr("到货_第三批到货数量")+ dr("到货_第四批到货数量")
Case "要求到货日期","数量"
If dr("数量") = dr("到货数量") Then
dr("倒计时天数") = "已完成"
Else
Dim tp As TimeSpan = CDate(e.DataRow("要求到货日期"))-Date.today
If dr.IsNull("要求到货日期") Then
dr("倒计时天数") = Nothing
Else
dr("倒计时天数") =tp.TotalDays
End If
End If
End Select
-- 发布时间：2018/1/31 16:40:00
--
-- 发布时间：2018/1/31 16:41:00
--
是不是倒计时天数是整数，“已完成”是字符，所以有问题
-- 发布时间：2018/1/31 16:52:00
--
1、你可以把列改成字符列；
2、你可以在drawcell事件写代码
Dim dr As Row = e.Row
Select Case e.col.Name
Case "倒计时天数"
If dr("数量") = dr("到货数量") Then
e.text = "已完成"
Else
Dim tp As TimeSpan = CDate(dr("要求到货日期"))-Date.today
If dr.IsNull("要求到货日期") Then
e.text = Nothing
Else
e.text = tp.TotalDays
End If
End If
End Select
-- 发布时间：2018/2/1 11:07:00
--
试了一下drawcell，现在空行也会显示“已完成”，以为是空行的数量和到货数量都返回零值，所以改成数量﹤到货数量+1，还是不行！
-- 发布时间：2018/2/1 11:10:00
--
把到货数量进行了空值判断也不行
-- 发布时间：2018/2/1 11:41:00
--
Dim dr As Row = e.Row
Select Case e.col.Name
Case "倒计时天数"
If dr("到货数量") <> nothing AndAlso dr("数量") = dr("到货数量") Then
e.text = "已完成"
Else
If dr.IsNull("要求到货日期") Then
e.text = Nothing
Else
Dim tp As TimeSpan = CDate(dr("要求到货日期"))-Date.today
e.text = tp.TotalDays
End If
End If
End Select
-- 发布时间：2018/2/1 12:04:00
--
谢谢！太感谢了！！
