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
这段代码 用一种方法操作就是正确的，比如 先选服务内容，再选保洁员后，就能计算 单价了
但是 如果先选 保洁员，再选服务内容，就不能计算 单价了。
要怎么随心所欲地，无论是先选 服务内容 ，还是 保洁员，都能正确计算单价呢？
加好友 
发短信
Post By：2015/3/12 15:51:00 [只看该作者]
