DataColChanged
If e.DataCol.Name = "权重" Then e.DataRow("权重合计") = e.DataTable.Compute("Sum(权重)", "姓名 = '" & e.DataRow("姓名") & "'")End If