主题：怎么求出数字几？

比如有三个列

总价列            人员                   均价

90            刘X,李X,王X             ？？

100          刘x, 李x                   ？？

按照人员数，怎么求出 均价列？

代码怎么写呢？

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("人员")
            e.DataRow("均价") = e.DataRow("总价") / nms.Split(",").length
        End If
End Select

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目59.table