If e.DataCol.Name = "企业名称" OrElse e.DataCol.Name = "风险点_名称" Then
Dim dr As DataRow = e.DataRow
Dim sr As DataRow
If dr("类型") = "作业活动" Then
sr = DataTables("作业活动清单").SQLFind("[企业名称] = '" & dr("企业名称") & "' And [作业活动名称] = '" & dr("风险点_名称") & "'") '在后台查找符合条件的行
ElseIf dr("类型") = "设备设施" Then
sr = DataTables("设备设施清单").SQLFind("[企业名称] = '" & dr("企业名称") & "' And [作业活动名称] = '" & dr("风险点_名称") & "'") '在后台查找符合条件的行
End If
If sr IsNot Nothing Then '如果找到了符合条件的行
dr("风险点_所在车间或岗位") = sr("部门/车间")
dr("责任单位") = sr("部门/车间")
dr("责任人") = sr("责任人员")
End If
End If
加好友 
发短信
Post By：2017/7/25 21:34:00 [显示全部帖子]
