以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  大神帮我啊，这个模板用什么表达式生成啊！我已经把数据源和模板上传了。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=39918)
--  作者：fhtdjh
--  发布时间：2013/9/4 14:59:00
--  大神帮我啊，这个模板用什么表达式生成啊！我已经把数据源和模板上传了。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:数据源.xlsx

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

大神帮我啊，这个模板用什么表达式生成啊！我已经把数据源和模板上传了。
--  作者：Bin
--  发布时间：2013/9/4 15:20:00
--  
利用狐表自身的统计功能,统计好了再导出!
--  作者：fhtdjh
--  发布时间：2013/9/4 15:27:00
--  
给个提示啊，应该用哪种统计方式，是汇总还是分组啊，能不能给个截图啊，跪谢啊！
--  作者：Bin
--  发布时间：2013/9/4 15:33:00
--  
分组统计
--  作者：狐狸爸爸
--  发布时间：2013/9/4 15:38:00
--  

其实不复杂：

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目9.table
--  作者：狐狸爸爸
--  发布时间：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
--  发布时间：2013/9/4 17:28:00
--  
大神，我要把月均销量在100以下的产品全部汇总，代码怎么写？
--  作者：Bin
--  发布时间：2013/9/4 17:42:00
--  
你想在哪里汇总,一句代码就可以的了.
--  作者：lsy
--  发布时间：2013/9/4 18:04:00
--  

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

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:销量统计.table
--  作者：狐狸爸爸
--  发布时间：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