- 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=102286)
-- 发布时间：2017/6/16 16:51:00
-- 请教一个统计问题！
各位大神，如图，表a 是 航班 人名 单价 求 表b 各小组汇总价格！
此主题相关图片如下：统计-2 拷贝.jpg
-- 发布时间：2017/6/16 17:09:00
--
大师在哪里？放假了？
-- 发布时间：2017/6/16 18:21:00
--
做个foxtable例子上传上来。
-- 发布时间：2017/6/16 18:34:00
--
感谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:机票统计.table |
-- 发布时间：2017/6/16 18:53:00
--
If e.DataCol.Name = "名单" Then
Dim str As String = e.NewValue
str = str.Replace(" ",",")
Dim Ls() As String
ls = str.Split(",")
Dim zj As Double
For i As Integer = 0 To ls.Length - 1
zj = zj + DataTables("表A").Compute("sum(单价)","名单 like \'%" & ls(i) & "%\'")
Next
e.DataRow("总价") = zj
\'zj = 0
End If
-- 发布时间：2017/6/16 18:53:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:机票统计.table |
-- 发布时间：2017/6/16 19:10:00
--
大牛啊，感谢
-- 发布时间：2017/6/16 19:11:00
--
str = str.Replace(" ",",")
这个 如果不管几个空格 都改为， 怎么表达？
-- 发布时间：2017/6/16 20:29:00
--
Dim str As String = "dfds fdfd fdsf fd"
Dim arr() As String = str.Split(" ")
str = ""
For Each ar As String In arr
If ar > "" Then str &= "," & ar
Next
str = str.Trim(",")
Output.Show(str)
-- 发布时间：2017/6/19 10:34:00
--
大牛啊，原来是这样
------------------------
现在是上面这个表，1，如何把客人前面的数字去掉 2，如何算出单价，前面是总价 要除以总人数
拜托各位大师！