模仿写了一个,代码有点乱,功能实现了。请蓝版修改下。Dim dr14 As DataRow
If e.DataCol.name = "教师ID" OrElse e.DataCol.name = "人员类别" OrElse e.DataCol.name = "姓名"
Dim sum As Double = DataTables("工作量").Compute("Sum(工作量得分)", "教师ID = '" & e.DataRow("教师ID") & "' and 人员类别 = '" & e.DataRow("人员类别") & "' and 姓名 = '" & e.DataRow("姓名") & "'")
dr14 = DataTables("工作量").find("教师ID = '" & e.DataRow("教师ID") & "'")
If e.DataRow.isnull(e.DataCol.name) = False
If e.DataRow("人员类别") = "统考多科"
e.DataRow("工作量") = round2(sum,2)
Else
Dim dr15 As DataRow
',否则在产品表查找同名的产品行,将找到的行赋值给变量dr
dr15= DataTables("工作量").Find("[姓名] = '" & e.NewValue & "'")
If dr15 IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
e.DataRow("工作量") = dr14("工作量得分")
End If
End If
Else
e.DataRow("工作量") = Nothing
End If
End If
[此贴子已经被作者于2020/10/14 19:01:22编辑过]