Select Case e.DataCol.name Case "总价","人员" If e.DataRow.IsNull("总价") OrElse e.DataRow.IsNull("人员") Then e.DataRow("均价") = Nothing Else Dim nms As String = e.DataRow("人员") e.DataRow("均价") = e.DataRow("总价") / nms.Split(",").length End IfEnd Select