Foxtable(狐表)用户栏目专家坐堂 → 大神帮我啊,这个模板用什么表达式生成啊!我已经把数据源和模板上传了。


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

主题:大神帮我啊,这个模板用什么表达式生成啊!我已经把数据源和模板上传了。

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


加好友 发短信
等级:婴狐 帖子:12 积分:146 威望:0 精华:0 注册:2013/9/3 10:04:00
大神帮我啊,这个模板用什么表达式生成啊!我已经把数据源和模板上传了。  发帖心情 Post By:2013/9/4 14:59:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:数据源.xlsx

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:模板.xlsx

大神帮我啊,这个模板用什么表达式生成啊!我已经把数据源和模板上传了。

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/9/4 15:20:00 [只看该作者]

利用狐表自身的统计功能,统计好了再导出!

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


加好友 发短信
等级:婴狐 帖子:12 积分:146 威望:0 精华:0 注册:2013/9/3 10:04:00
  发帖心情 Post By:2013/9/4 15:27:00 [只看该作者]

给个提示啊,应该用哪种统计方式,是汇总还是分组啊,能不能给个截图啊,跪谢啊!

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/9/4 15:33:00 [只看该作者]

分组统计

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/9/4 15:38:00 [只看该作者]

其实不复杂:

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目9.table


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/9/4 15:48:00 [只看该作者]

有笔误,改一下:

 

 

DataTables("统计").DataRows.clear()
Dim values() As Double = {2000,1500,1000,500,300}
For i As Integer = 0 To values.length - 1
    Dim flt As String = "月均销量 >= " & values(i)
    If i > 0 Then
        flt = flt & " And 月均销量 < " & values(i-1)
    End If
    Dim dr As DataRow = DataTables("统计").AddNew
    dr("产品结构") = "月均" & values(i) & "销量"
    dr("款数") = DataTables("产品").Compute("Count([_Identify])",flt)
    dr("销量合计") = DataTables("产品").Compute("Sum(月均销量)",flt)
    dr("产品名称") = DataTables("产品").GetComboListString("产品名称",flt).replace("|",",")
    dr("合计占比") = dr("销量合计") / DataTables("产品").Compute("Sum(月均销量)")
Next


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


加好友 发短信
等级:婴狐 帖子:12 积分:146 威望:0 精华:0 注册:2013/9/3 10:04:00
  发帖心情 Post By:2013/9/4 17:28:00 [只看该作者]

大神,我要把月均销量在100以下的产品全部汇总,代码怎么写?

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/9/4 17:42:00 [只看该作者]

你想在哪里汇总,一句代码就可以的了.


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


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2013/9/4 18:04:00 [只看该作者]

在狐爸代码的基础上,加一点就行了。

 

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


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/9/4 18:10:00 [只看该作者]

DataTables("统计").DataRows.clear()
Dim values() As Double = {2000,1500,1000,500,300,100}
For i As Integer = 0 To values.length - 1
    Dim flt As String = "月均销量 >= " & values(i)
    If i > 0 Then
        flt = flt & " And 月均销量 < " & values(i-1)
    End If
    Dim dr As DataRow = DataTables("统计").AddNew
    dr("产品结构") = "月均" & values(i) & "销量"
    dr("款数") = DataTables("产品").Compute("Count([_Identify])",flt)
    dr("销量合计") = DataTables("产品").Compute("Sum(月均销量)",flt)
    dr("产品名称") = DataTables("产品").GetComboListString("产品名称",flt).replace("|",",")
    dr("合计占比") = dr("销量合计") / DataTables("产品").Compute("Sum(月均销量)")
    If i = values.length - 1  Then
        flt = "月均销量 < " & values(i)
        dr = DataTables("统计").AddNew
        dr("产品结构") = "月均小于" & values(i) & "销量"
        dr("款数") = DataTables("产品").Compute("Count([_Identify])",flt)
        dr("销量合计") = DataTables("产品").Compute("Sum(月均销量)",flt)
        dr("产品名称") = DataTables("产品").GetComboListString("产品名称",flt).replace("|",",")
        dr("合计占比") = dr("销量合计") / DataTables("产品").Compute("Sum(月均销量)")
    End If
Next

 回到顶部
总数 14 1 2 下一页