主题：怎么求出数字几？

呃，没有问题

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