以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  跨表引用重复添加  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=48123)
--  作者：lxhmax
--  发布时间：2014/3/23 17:34:00
--  跨表引用重复添加
麻烦各位老师帮我看下这段跨表引用的代码哪里出错了！
现在的情况就是样品项目在委托协议书附件中已经有的数据无法查找出来，重置时会一直重复添加一样的样品项目

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
--  作者：有点酸
--  发布时间：2014/3/23 18:14:00
--  
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