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

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

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

有点蓝

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

加好友

发短信

等级：超级版主帖子：110559 积分：562685 威望：0 精华：9 注册：2015/6/24 9:21:00

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

字典添加了重复的键，调试

For i As Integer = d.Day To d2.Day

e.DataRow(i) = Nothing

Dim dc As DataCol = e.DataTable.DataCols(i)

msgbox(dc.Caption & "--" & dc.Name)

dict.Add(dc.Caption, dc.Name)

[此贴子已经被作者于2023/7/29 10:10:54编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：110559 积分：562685 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/7/29 11:19:00 [显示全部帖子]

还是要继续2楼的调试，看看msgbox(dc.Caption & "--" & dc.Name)弹出的列标题是什么

下面的列标题又是什么？

For Each dr As DataRow In dt.DataRows

Dim cn As String = format(dr("领用日期"), "yyyy-MM-dd")

msgbox(cn)

If dict.ContainsKey(cn) Then

e.DataRow(dict(cn)) = dr("领用数量")

End If

有点蓝

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

加好友

发短信

等级：超级版主帖子：110559 积分：562685 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/7/29 11:45:00 [显示全部帖子]

自己想办法改为一样

有点蓝

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

加好友

发短信

等级：超级版主帖子：110559 积分：562685 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/7/29 13:19:00 [显示全部帖子]

还是基础没学好

方法1、

For i As Integer = d.Day To d2.Day

dtb.AddDef(format(new date(d.year,d.month,i), "yyyy_MM_dd"), GetType(Date))

……

For Each dr As DataRow In dt.DataRows

Dim cn As String = format(dr("领用日期"), "yyyy_MM_dd")

2、

do while d <= d2

dtb.AddDef(format(d, "yyyy_MM_dd"), GetType(Date))

d=d.adddays(1)

loop

……

For Each dr As DataRow In dt.DataRows

Dim cn As String = format(dr("领用日期"), "yyyy_MM_dd")

3、

For Each dr As DataRow In dt.DataRows

Dim cn As String = dr("领用日期").day

有点蓝

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

加好友

发短信

等级：超级版主帖子：110559 积分：562685 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/7/29 14:21:00 [显示全部帖子]

调试方法前面都有，自行调试

有点蓝

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

加好友

发短信

等级：超级版主帖子：110559 积分：562685 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/7/29 14:51:00 [显示全部帖子]

建表的时候也没有使用标题啊，直接使用列名不行吗，为什么要使用列标题

有点蓝

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

加好友

发短信

等级：超级版主帖子：110559 积分：562685 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/7/30 20:31:00 [显示全部帖子]

去掉字典

Dim b As New SQLGroupTableBuilder("统计表1", "油类切消液明细")

b.C

b.Groups.AddDef("使用设备")

b.Groups.AddDef("材料编码")

b.Groups.AddDef("领用日期", DateGroupEnum.None)

b.Totals.AddDef("领用数量")

b.Filter = "使用设备 = '" & e.DataRow("使用设备") & "'"

Dim dt As DataTable = b.Build(True)

For Each dr As DataRow In dt.DataRows

Dim cn As String = format(dr("领用日期"), "yyyy-MM-dd")

If e.datatable.datacols.Contains(cn) Then

e.DataRow(cn) = dr("领用数量")

End If

有点蓝

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

加好友

发短信

等级：超级版主帖子：110559 积分：562685 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/7/30 21:54:00 [显示全部帖子]

看看添加列的时候应该使用什么类型的列

Add(ColumnName, GetType(Type))
Add(ColumnName, GetType(Type), Expression)
Add(ColumnName, GetType(Type), Expression, Caption)
Add(ColumnName, GetType(Type), MaxLength)
Add(ColumnName, GetType(Type), MaxLength, Expression)
Add(ColumnName, GetType(Type), MaxLength, Expression, Caption)

后三个语法是针对字符列的。
　

参数说明：