Select Case e.DataCol.Name Case "数量","剂量","单价" If e.DataRow("剂量") Is Nothing Then e.DataRow("合计") = e.DataRow("数量") * e.DataRow("单价") ElseIf e.DataRow("数量") Is Nothing Then e.DataRow("合计") = e.DataRow("剂量") * e.DataRow("单价") End IfEnd Select