Foxtable(狐表)用户栏目专家坐堂 → 请教一个统计问题!


  共有4870人关注过本帖树形打印复制链接

主题:请教一个统计问题!

帅哥哟,离线,有人找我吗?
bootes29
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:214 积分:1386 威望:0 精华:0 注册:2017/5/13 15:13:00
请教一个统计问题!  发帖心情 Post By:2017/6/16 16:51:00 [只看该作者]

各位大神,如图,表a 是 航班 人名  单价  求 表b 各小组汇总价格!
图片点击可在新窗口打开查看此主题相关图片如下:统计-2 拷贝.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
bootes29
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:214 积分:1386 威望:0 精华:0 注册:2017/5/13 15:13:00
  发帖心情 Post By:2017/6/16 17:09:00 [只看该作者]

大师在哪里?放假了?

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/16 18:21:00 [只看该作者]

 做个foxtable例子上传上来。

 回到顶部
帅哥哟,离线,有人找我吗?
bootes29
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:214 积分:1386 威望:0 精华:0 注册:2017/5/13 15:13:00
  发帖心情 Post By:2017/6/16 18:34:00 [只看该作者]

感谢
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:机piao统计.table


 回到顶部
帅哥哟,离线,有人找我吗?
2900819580
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1309 积分:9501 威望:0 精华:0 注册:2015/6/30 8:46:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
2900819580
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1309 积分:9501 威望:0 精华:0 注册:2015/6/30 8:46:00
  发帖心情 Post By:2017/6/16 18:53:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:机piao统计.table


 回到顶部
帅哥哟,离线,有人找我吗?
bootes29
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:214 积分:1386 威望:0 精华:0 注册:2017/5/13 15:13:00
  发帖心情 Post By:2017/6/16 19:10:00 [只看该作者]

大牛啊,感谢图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
bootes29
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:214 积分:1386 威望:0 精华:0 注册:2017/5/13 15:13:00
  发帖心情 Post By:2017/6/16 19:11:00 [只看该作者]

 str =  str.Replace(" ",",")
这个 如果不管几个空格 都改为, 怎么表达?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106017 积分:539172 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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)

 回到顶部
帅哥哟,离线,有人找我吗?
bootes29
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:214 积分:1386 威望:0 精华:0 注册:2017/5/13 15:13:00
  发帖心情 Post By:2017/6/19 10:34:00 [只看该作者]

大牛啊,原来是这样
------------------------
现在是上面这个表,1,如何把客人前面的数字去掉 2,如何算出单价,前面是总价 要除以总人数
拜托各位大师!

 回到顶部
总数 39 1 2 3 4 下一页