主题：有条件在另一表中新增项目名称

Select Case e.DataCol.name

Case "项目名称"

    Dim dr As DataRow = DataTables("监理项目流程").Find("项目名称 = '" & e.OldValue & "'")

    If dr Is Nothing  Then

        If e.DataRow("审核") <> "通过" Then

            dr = DataTables("监理项目流程").AddNew()

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

            dr("招标信息审核") = e.DataRow("审核")

        End If

    Else

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

        dr("招标信息审核") = e.DataRow("审核")

End Select