按条件提取数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：2.png

此主题相关图片如下：1.png

“绩效明细”表里“工作量”列，在“工作量”表中按如下条件提取。

如果“工作量”表中的“人员类别”列是“统考多科”，那么就在“工作量”表中查找姓名相同“工作量得分”并求和。否则就直接查找到相同姓名的人填充过来。应该怎样写代码呢？

模仿写了一个，代码有点乱，功能实现了。请蓝版修改下。

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

Else

e.DataRow("工作量") = Nothing

End If

[此贴子已经被作者于2020/10/14 19:01:22编辑过]

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("人员类别") = "统考多科"

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

主题：按条件提取数据