主题：如何定位复制行

参考代码

If e.DataCol.Name = "是否" Then
    If e.DataRow("是否") = True Then
        Dim fdr1 As DataRow = DataTables("新表").find("产品id = '" & e.DataRow("产品id") & "' and 起始单价对比 = '最早'")
        Dim fdr2 As DataRow = DataTables("新表").find("产品id = '" & e.DataRow("产品id") & "' and 起始单价对比 = '最晚'")
        If fdr1 Is Nothing Then
            fdr1 = DataTables("新表").AddNew
            fdr1("产品id") = e.DataRow("产品id")
            fdr1("起始单价对比") = "最早"
        End If
        If fdr2 Is Nothing Then
            fdr2 = DataTables("新表").AddNew
            fdr2("产品id") = e.DataRow("产品id")
            fdr2("起始单价对比") = "最晚"
        End If
        Dim dr1 = e.DataTable.Find("产品id = '" & e.DataRow("产品id") & "'", "日期")
        Dim dr2 = e.DataTable.Find("产品id = '" & e.DataRow("产品id") & "'", "日期 desc")
        If dr1 IsNot Nothing Then
            fdr1("日期") = dr1("日期")
            fdr1("单价") = dr1("单价")
            fdr2("日期") = dr2("日期")
            fdr2("单价") = dr2("单价")
        End If
    Else
        DataTables("新表").deletefor("产品id = '" & e.DataRow("产品id") & "'")

    End If
End If

改成

        Dim dr1 = e.DataTable.Find("产品id = '" & e.DataRow("产品id") & "' and 日期 is not null", "日期")
        Dim dr2 = e.DataTable.Find("产品id = '" & e.DataRow("产品id") & "' and 日期 is not null", "日期 desc")