以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  怎么求出数字几?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=64701)

--  作者:cyrollin
--  发布时间:2015/2/27 13:51:00
--  怎么求出数字几?
TIANTIAN 老师,帮我看下这个从下拉列表多项选则出来的数据,怎么能求出是数字几? 
比如,选择了如下三个人:

图片点击可在新窗口打开查看此主题相关图片如下:11a.png
图片点击可在新窗口打开查看

怎么能求出是数字 3 呢?用什么函数? 我以后要计算平均值,用总价除以这个数字,求得平均值

谢谢!





--  作者:lsy
--  发布时间:2015/2/27 13:56:00
--  
e.Sender.Text.Split(",").Length
--  作者:cyrollin
--  发布时间:2015/2/27 15:27:00
--  
不会写这个表达式,比如我用总价列除以求得的这个数字,该怎么写呢?

[总价]/e.sender.txt.split(",").length ?



--  作者:Bin
--  发布时间:2015/2/27 15:28:00
--  
表达式无法做到,要编写代码.  具体要根据你实际情况而定,请上个例子吧.




--  作者:cyrollin
--  发布时间:2015/2/27 15:52:00
--  
好的,但我先学习一下统计,正在研究中。。。。。。
--  作者:cyrollin
--  发布时间:2015/3/12 10:19:00
--  
以下是引用lsy在2015/2/27 13:56:00的发言:
e.Sender.Text.Split(",").Length

比如有三个列


总价列            人员                   均价

90            刘X,李X,王X             ??

100          刘x, 李x                   ??


按照人员数,怎么求出 均价列?

代码怎么写呢?



[此贴子已经被作者于2015/3/12 10:20:29编辑过]

--  作者:有点甜
--  发布时间:2015/3/12 10:25:00
--  

DataColChanged事件

 

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

    If e.NewValue <> Nothing Then

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

    End If

End If


--  作者:Bin
--  发布时间:2015/3/12 10:25:00
--  
代码

datacolchanged事件

if e.datacol.name= "人员" andalso e.datarow.isnull("总价列")=false then
    e.datarow("均价")=e.datarow("总价列")/e.datarow("人员").Split(",").Length
end if

--  作者:狐狸爸爸
--  发布时间:2015/3/12 10:25:00
--  

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


--  作者:cyrollin
--  发布时间:2015/3/12 11:45:00
--  
都可以也, 好厉害的感脚 
! 谢谢 了