主题：[求助]学生成绩表最后1行的数据统计到成绩分布表

蓝总，想要的效果是下面代码，但不会怎么增加，只取当前表最后1行的值，统计到表B

求助，下面代码，增加当前表最后1行修改后，当前表最后1行的数据更新统计到表B

If e.DataCol.Name = "第一列" Then '如果内容发生变动的是第一列列

    If e.NewValue Is Nothing Then '如果新值是空白,也就是第一列列的内容为空

        e.DataRow("第二列") = Nothing '那么清空此行第二列列的内容

    Else

        Dim dr As DataRow

        '否则在表B表查找同名的表B行,将找到的行赋值给变量dr

        dr = DataTables("表B").Find("[第一列] = '" & e.NewValue & "'")

        If dr IsNot Nothing Then '如果找到了同名的表B行,也就是dr不是Nothing

            e.DataRow("第二列") = dr("第二列")

        End If

    End If

End If