主题：求助

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

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