以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  有条件在另一表中新增项目名称  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91195)
--  作者：狐狸爸爸
--  发布时间：2016/10/3 19:42:00
--  
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 If
End Select
[此贴子已经被作者于2016/10/3 19:42:34编辑过]