If e.DataCol.name = "教师ID" OrElse e.DataCol.name = "人员类别" OrElse e.DataCol.name = "姓名"
If e.DataRow.isnull("教师ID") OrElse e.DataRow.isnull("人员类别") OrElse e.DataRow.isnull("姓名")
e.DataRow("工作量") = Nothing
Else
If e.DataRow("人员类别") = "统考多科"
Dim sum As Double = DataTables("工作量").Compute("Sum(工作量得分)", "教师ID = '" & e.DataRow("教师ID") & "' and 人员类别 = '" & e.DataRow("人员类别") & "' and 姓名 = '" & e.DataRow("姓名") & "'")
e.DataRow("工作量") = round2(sum,2)
Else
Dim dr15 As DataRow = DataTables("工作量").Find("教师ID = '" & e.DataRow("教师ID") & "' and [姓名] = '" & e.NewValue & "'")
If dr15 IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
e.DataRow("工作量") = dr14("工作量得分")
Else
e.DataRow("工作量") = Nothing
End If
End If
End If
End If
加好友 
发短信
Post By：2020/10/15 8:40:00 [显示全部帖子]
