主题：求助

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

是不是倒计时天数是整数，“已完成”是字符，所以有问题

 

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

 

试了一下drawcell，现在空行也会显示“已完成”，以为是空行的数量和到货数量都返回零值，所以改成数量﹤到货数量+1，还是不行！

把到货数量进行了空值判断也不行

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

谢谢！太感谢了！！