主题：[求助]谁能给分析下，代码问题在哪？

这是提料主表的：

        Case "提料日期"
            drs = DataTables("提料明细表").Select("提料日期 = #" & e.OldValue & "#")
            If drs IsNot Nothing Then
                For Each dr As DataRow In drs
                    dr("提料日期") = e.DataRow("提料日期")
                Next
            End If           

这是进料主表的：

        Case "进场日期"
            drs = DataTables("进料明细表").Select("进场日期 = #" & e.OldValue & "#")
            If drs IsNot Nothing Then
                For Each dr As DataRow In drs
                    dr("进场日期") = e.DataRow("进场日期")
                Next
            End If