Foxtable(狐表)用户栏目专家坐堂 → [求助] 如何动态统计求和数据???


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

主题:[求助] 如何动态统计求和数据???

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/19 11:11:00 [只看该作者]

 或者在生成的时候用表达式

 

'---------以下代码增加临时表用于统计数据,表名为<统计>
Dim TJ As New DataTableBuilder("统计")
TJ.AddDef("姓名", Gettype(String), 16)      '新增姓名列
For Each DL As String In DataTables("表设置").GetValues("大类","","_SORTKEY")     '遍历<表设置>中的各个字段
    If DL <> "" Then     '大类的空行不计入
        For Each FL As String In DataTables("表设置").GetValues("分类","","_SORTKEY")
            If FL <>"" Then   '分类的空行不计入
                TJ.AddDef(dl & "_" & fl,Gettype(Integer))
            End If
        Next
    End If
Next

Dim fenlei As List(of String) = DataTables("表设置").GetValues("分类", "分类 is not null")
Dim dalei As List(of String) = DataTables("表设置").GetValues("大类", "大类 is not null")

For Each f As String In fenlei
    Dim str As String = ""
    For Each d As String In dalei
        str &= "isnull(" & d & "_" & f & ", 0)+"
    Next
    TJ.AddDef("总评_" & f,Gettype(Integer),str.trim("+"))
Next


TJ.Build


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


加好友 发短信
等级:一尾狐 帖子:455 积分:3756 威望:0 精华:0 注册:2012/2/8 14:19:00
  发帖心情 Post By:2014/11/19 14:09:00 [只看该作者]

太厉害了!

 回到顶部
总数 12 上一页 1 2