主题：求和

直接重置列

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

做一个按钮，执行代码

Dim dt As DataTable =DataTables("开机任务表")
For Each r As DataRow In DataTables("设备运行表").Select("")
    Dim drs = dt.Select("使用设备 = '" & r("使用设备") & "'")
    For i As Integer = 1 To 31
        r("日" & i) = Nothing
    Next
    For Each dr As DataRow In drs
        Dim d1 As Date = dr("生产日期")
        For i As Integer = 1 To 31
            Dim d As Date = Date.Today.AddDays(i-1)
            If d1 = d Then
                r("日" & i) = dr("当班任务")
            End If
        Next
    Next
Next