主题：筛选后找到最后日期的记录赋值给新增行

老师，如下代码怎么实现不了下表要求呢？请帮助

If e.DataTable.DataRows.Count = 0 Then '如果是一个空表
    Return '那么返回
End If
If Tables("注塑日报").Current.DataRow.RowState = DataRowState.Added Then
    If e.DataCol.Name ="机台号码" Then
        With DataTables("注塑日报")
            Dim dr As DataRow = DataTables("注塑日报").find("机台号码 = " & "'" & e.DataRow("机台号码") & "'","生产日期 DESC,_identify desc" )
           
            If dr IsNot Nothing'如果找到,则设置各列内容
                e.DataRow("接班模数")= dr("交班模数")
                e.DataRow("交班结存")= dr("本班结存")
            End If
        End With
    End If
End If

DataColChanged事件

msgbox(1)

If e.DataRow.RowState = DataRowState.Added Then

msgbox(e.datacol.name)
    If e.DataCol.Name ="机台号码" Then
            Dim dr As DataRow = DataTables("注塑日报").find("机台号码 = '" & e.DataRow("机台号码") & "' and _Identify <> " & e.datarow("_Identify"),"生产日期 DESC,_identify desc" )
msgbox(2)           
            If dr IsNot Nothing'如果找到,则设置各列内容

msgbox(3)
                e.DataRow("接班模数")= dr("交班模数")
                e.DataRow("交班结存")= dr("本班结存")
            End If
    End If
End If