主题：无法即时更新

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 math.Ceiling(d2-d1).TotalDays)
            Dim d As Date = d1.AddDays(i)
            Dim sp As TimeSpan = d - Date.Today

math.Ceiling((d2-d1).TotalDays)

少了个括号

e.DataRow("日" & (d+1)) = dr("成品描述")

e.DataRow("日" & (d3+1)) = dr("成品描述")