参考

http://www.foxtable.com/webhelp/scr/0681.htm

你各列的日期，列名是如何命名的？要改成这样的，如 20171124  20171125  20171126 

Dim dt As DataTable =DataTables("生产排产表")
If e.DataCol.Name = "设备编码" Then
    Dim drs = dt.Select("使用设备 = \'" & e.DataRow("设备编码") & "\'")
    For Each dr As DataRow In drs
        Dim d1 As Date = dr("开始日期")
        Dim d2 As Date = dr("预计结束日期")
        For i As Integer = 0 To (d2-d1).TotalDays
            Dim d As Date = d1.AddDays(i)
            Dim str As String = format(d, "yyyyMMdd")
            e.datarow(str) = dr("成品描述")
        Next
    Next
End If

1、写代码

Dim dt As DataTable =DataTables("生产排产表")
If e.DataCol.Name = "设备编码" Then
    Dim drs = dt.Select("使用设备 = \'" & e.DataRow("设备编码") & "\'")
    For Each dr As DataRow In drs
        Dim d1 As Date = dr("开始日期")
        Dim d2 As Date = dr("预计结束日期")
        For i As Integer = 0 To (d2-d1).TotalDays
            Dim d As Date = d1.AddDays(i)
            Dim sp As TimeSpan = d - Date.Today
            If sp.TotalDays >=0 andalso sp.TotalDays < 31 Then
                e.DataRow("日" & sp.TotalDays+1) = dr("成品描述")
            End If
        Next
    Next
End If

2、重置列