统计问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 统计问题

共有4436人关注过本帖树形打印复制链接主题：统计问题

有点色

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/5 12:38:00 [显示全部帖子]

Dim b As New GroupTableBuilder("统计表1",DataTables("ProjectListAll"))
b.Filter = "[Date] >= #1/1/2016# And [Date]<= #12/31/2016#"
b.Groups.AddDef("Date",DateGroupEnum.Year,"year")
b.Groups.AddDef("Date",DateGroupEnum.month,"month")
b.Groups.AddDef("Date",DateGroupEnum.week,"week")
'b.Groups.AddDef("T3D_PrimeProduction")'添加客户列用于分组
b.Totals.AddDef("T3D_InfillProduction")
b.Build '生成统计表
MainTable = Tables("统计表1") '打开生成的统计表

你需要什么效果，做个例子发上来看看

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/5 22:31:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目20.table

http://www.foxtable.com/webhelp/scr/2720.htm

有点色

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/7 9:36:00 [显示全部帖子]

参考代码

Dim tjdate As Date =e.Form.Controls("Calendar1").value
Dim dt As DataTable = DataTables("统计表")'将统计结果放在这里
dt.datarows.Clear
Dim nr As DataRow = dt.AddNew
nr("名称") = "PrimeProduction"
Dim filter2 As String = "date >= #" & tjdate & "# and date < #" & tjdate.AddDays(1) & "#"
Dim SumInDay As Single= DataTables("ProjectListAll").Compute("sum(PrimeProduction)", filter)
nr("day")=SumInDay

有点色

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/8 23:35:00 [显示全部帖子]

nr = DataTables("T").AddNew()

nr("Category") = "Ch"

nr("day")=“SumInDay2”

有点色

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/9 13:43:00 [显示全部帖子]

dim dt as datatable = DataTables("Time")
Dim pall As Double = dt.Compute("Sum(Project)")
For Each dr As DataRow In dt.datarows
dr("percent") = format(dr("Project") / pall, "0.00")
Next

有点色

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/9 16:47:00 [显示全部帖子]

DataTables("Time").DataCols("percent").SetFormat("0.00%")

有点色

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/10 10:52:00 [显示全部帖子]

Dim TimeDay1 As DataTable = DataTables("daytj")
Dim TimeDay2 As DataTable = DataTables("Dayresult")

For Each c As String In TimeDay1.GetValues("Category")
Dim ndr As DataRow = timeday2.AddNew
ndr("Category") = c
next

有点色

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/10 11:29:00 [显示全部帖子]

Dim TimeDay1 As DataTable = DataTables("daytj")
Dim TimeDay2 As DataTable = DataTables("Dayresult")
For Each ary As String() In TimeDay1.GetValues("Category|OperationDetail")
Dim ndr As DataRow = timeday2.AddNew
ndr("Category") = ary(1)
Next

有点色

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/10 17:00:00 [显示全部帖子]

Dim TimeDay1 As DataTable = DataTables("daytj")
Dim TimeDay2 As DataTable = DataTables("Dayresult")
For Each c As String In TimeDay1.GetValues("Category")
    Dim ndr As DataRow = timeday2.AddNew
    ndr("Category") = c
    Dim ndr2 As DataRow = timeday2.AddNew
    For Each b As String In TimeDay1.GetValues("OperationDetail","[Category]='" & c & "'")
        ndr2("Category") = b
    Next
Next

有点色

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/13 0:23:00 [显示全部帖子]

Dim cc As Double = dttimebkds.Compute("Sum(Duration)", "[Category] = '" & Str1(iii) & "' And [Block]='" & selectednodename & "'")

下一主题 >> << 上一主题

总数 12 1 2 下一页

主题：统计问题