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


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

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

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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/9/4 15:38:00 [显示全部帖子]

其实不复杂:

 

 

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


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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望: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


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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望: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

 回到顶部