|
If e.DataCol.Name = "项目编号" OrElse e.DataCol.Name = "任务阶段" OrElse e.DataCol.Name = "执行人" Then
If e.NewValue = Nothing Then
e.DataRow("项目负责人") = Nothing '那么清空此行项目负责人列的内容,如项目计划书的项目经理变动 需重置项目编号列
Else
Dim dr As DataRow = DataTables("项目计划书").SQLFind("[项目编号] = '" & e.datarow("项目编号") & "' And 设计阶段 = '" & e.DataRow("任务阶段") & "' And 项目经理 = '" & e.DataRow("执行人") & "'")
If dr IsNot Nothing Then '如果找到了同名的项目编号、设计阶段和项目经理行,也就是dr不是Nothing
If e.DataRow.Isnull("监理人员") = True Then
e.DataRow("项目负责人") = dr("项目经理")
Else
e.DataRow("项目负责人") = ""
End If
End If
End If
End If
|
加好友 
发短信
Post By：2017/10/25 16:34:00 [显示全部帖子]
