主题：怎么求出数字几？

DataColChanged事件

 

If e.DataCol.Name = "人员" Then

    If e.NewValue <> Nothing Then

        e.DataRow("均价") = e.DataRow("总价列") / e.DataRow("人员").Split(",").Length

    End If

End If

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("新老客户") = "老客户" OrElse e.DataRow("服务内容") ="全室保洁"  
                e.DataRow("人均价") = e.DataRow("单价") *2 / nms.Split(",").length
            Else If e.DataRow("新老客户") = "老客户" OrElse e.DataRow("服务内容") ="日常保洁"  
                e.DataRow("人均价") = e.DataRow("单价")  / nms.Split(",").length
            Else If e.DataRow("新老客户") = "新客户" OrElse e.DataRow("服务内容") ="全室保洁"  AndAlso e.DataRow("开荒") 
                e.DataRow("人均价") = e.DataRow("单价")  / nms.Split(",").length
            End If
        End If
End Select

呃，没有问题

 

Select Case e.DataCol.name
    Case "单价","保洁员","新老客户","服务内容","开荒"
        If e.DataRow.IsNull("单价") OrElse e.DataRow.IsNull("保洁员") OrElse e.DataRow.Isnull("服务内容") OrElse e.DataRow.Isnull("新老客户") Then
            e.DataRow("人均价") = Nothing
        Else
            Dim nms As String  = e.DataRow("保洁员")
            If e.DataRow("新老客户") = "老客户" OrElse e.DataRow("服务内容") ="全室保洁"  
                e.DataRow("人均价") = e.DataRow("单价") *2 / nms.Split(",").length
            Else If e.DataRow("新老客户") = "老客户" OrElse 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

            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

Case "单价","保洁员"

 

改成

 

Case "单价","保洁员","服务内容"

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("新老客户") = "老客户" OrElse e.DataRow("新老客户") = "客户改") AndAlso e.DataRow("服务内容") ="全室保洁"
                e.DataRow("人均价") = e.DataRow("单价") *2 / nms.Split(",").length
            Else If (e.DataRow("新老客户") = "老客户" OrElse e.DataRow("新老客户") = "客户改") AndAlso e.DataRow("服务内容") ="日常保洁"  
                e.DataRow("人均价") = e.DataRow("单价")  / nms.Split(",").length
            Else If e.DataRow("新老客户") = "新客户" AndAlso e.DataRow("服务内容") ="全室保洁"  AndAlso e.DataRow("开荒") = True
                e.DataRow("人均价") = e.DataRow("单价")  / nms.Split(",").length
            End If
        End If
End Select