主题：跨表引用重复添加

Select Case e.DataCol.name

    Case "检测项目"

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

        If fj("附件") = True Then

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

            If dr Is Nothing Then

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

            End If

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

        End If

End Select