主题：跨表引用重复添加

麻烦各位老师帮我看下这段跨表引用的代码哪里出错了！

现在的情况就是样品项目在委托协议书附件中已经有的数据无法查找出来，重置时会一直重复添加一样的样品项目

Select Case e.DataCol.name

    Case "检测项目"

        Dim fj As DataRow = DataTables("委托协议书").Find("委托编号 ='" & e.OldValue & "'")

        If fj("附件") = True Then

            Dim dr As DataRow = DataTables("委托协议书附件").Find("样品项目 = '" & e.OldValue & "'")

            If dr Is Nothing Then

                dr = DataTables("委托协议书附件").AddNew()

            End If

            dr("样品项目") = e.DataRow("样品项目")

        End If

End Select