主题：非关联表同步的条件问题

请教老师，参照非关联表之间的数据同步，我加了个条件，如果参加投标的逻辑列勾选后，投标主表同步增加行，并把信息编号和项目名称带入增加行

是否我写的条件位置不对？

Select Case e.DataCol.name '如果项目甄批意见勾选参加投标,项目主表参加投标勾选后,投标主表增加行

    Case "信息编号" 

        If e.DataRow("参加投标") = True  Then

        Dim dr1 As DataRow = DataTables("投标主表").Find("信息编号 = '" & e.OldValue & "'")

        If dr1 Is Nothing Then 

            dr1 = DataTables("投标主表").AddNew()

            dr1("信息编号") = e.DataRow("信息编号")

            dr1("项目名称") = e.DataRow("项目名称")

        Else

            dr1("信息编号") = e.DataRow("信息编号")

             End If

        End If

    Case "项目名称"

        Dim dr1 As DataRow = DataTables("投标主表").Find("信息编号 = '" & e.DataRow("信息编号") & "'")

        If dr1 IsNot Nothing Then

            dr1(e.DataCol.Name) = e.DataRow(e.DataCol.Name)

        End If

End Select