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("保洁员")
If e.DataRow("新老客户") = "老客户" AndAlso e.DataRow("服务内容") ="全室保洁"
e.DataRow("人均价") = e.DataRow("单价") *2 / nms.Split(",").length
Else If e.DataRow("新老客户") = "老客户" AndAlso e.DataRow("服务内容") ="日常保洁"
e.DataRow("人均价") = e.DataRow("单价") / nms.Split(",").length
Else If e.DataRow("新老客户") = "新客户" OrElse e.DataRow("服务内容") ="全室保洁" AndAlso e.DataRow("开荒") = True
e.DataRow("人均价") = e.DataRow("单价") / nms.Split(",").length
End If
End If
End Select
这段代码 用一种方法操作就是正确的,比如 先选服务内容,再选保洁员后,就能计算 单价了
但是 如果先选 保洁员,再选服务内容,就不能计算 单价了。
要怎么随心所欲地,无论是先选 服务内容 ,还是 保洁员,都能正确计算单价呢?