主题：请教 代码为什么不自动计算, 单击重置后,才计算

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:自动计算.zip

表中有代码如下:

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "类别"
        If dr.IsNull("任务单要求完成时间") = False And dr("类别") = "成品" Then
            dr("最后入库时间") =CDate(dr("任务单要求完成时间").AddDays(-3))
        End If
    Case "最后入库时间"
        dr("计划开始生产时间") = CDate(dr("最后入库时间")).AddDays(-dr("生产所需天数"))
       
    Case "计划开始生产时间"
        If dr.IsNull("计划开始生产时间") = False Then
            dr("第一批入库时间") = CDate(dr("计划开始生产时间")).AddDays(+dr("周期"))
            Dim ab As Byte = dr("级别") + 1
            Dim dr2,dr3,dr4 As DataRow
            Dim Filter As String = "生产任务单= '" & dr("生产任务单") & "'and 级别 = '" & ab & "'"
            Dim Filter1 As String = "生产任务单= '" & dr("生产任务单") & "'and 物料型号= '" & dr("物料型号") & "' and 级别 = '" & ab & "' "
            dr3 = DataTables("表A").find(Filter1)
            If  dr3 IsNot Nothing Then
                dr3("最后入库时间") = dr("计划开始生产时间")
                Dim drs As List(Of DataRow) = DataTables("表A").Select(Filter)
                For Each rd As DataRow In drs
                    rd("最后入库时间") = dr("计划开始生产时间")
                Next
            End If
        End If
End Select

希望 "计划开始生产时间" 这个发生变化后,能全部自动计算,,,,,

现在的情况是,   不能自动计算,按重置后,才会计算...