主题：[求助]

If e.DataCol.Name="积分" Then

    Dim jflist As List(of DataRow)

    jflist=DataTables("成绩表").Select("[班级代码] = '" & e.DataRow("班级代码")  & "' and [性别] = '" & e.DataRow("性别")  & "' and [参赛项目] ='" & e.DataRow("参赛项目")  & "'")

    Dim jf As Integer

    If Not jflist Is Nothing Then

        For i As Integer=0 To jflist.Count-1

            jf=jf+Val(jflist(i)("积分"))

        Next

        DataTables("团体总分表").Find("班级代码 =" &  e.DataRow("班级代码"))(e.DataRow("性别") & e.DataRow("参赛项目") )=jf

    End If

End If

以上代码添加到成绩表的 DataColChanged事件中即可