Foxtable(狐表)用户栏目专家坐堂 → [求助]Excel报表,BeforeBuild,已添加了具有相同键的项。


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

主题:[求助]Excel报表,BeforeBuild,已添加了具有相同键的项。

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


加好友 发短信
等级:一尾狐 帖子:446 积分:3408 威望:0 精华:0 注册:2015/3/4 15:55:00
[求助]Excel报表,BeforeBuild,已添加了具有相同键的项。  发帖心情 Post By:2023/6/10 2:01:00 [只看该作者]

加上红色部分就开始报错,请问如何解决?谢谢!


.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2022.8.18.1
错误所在事件:Excel报表,BeforeBuild
详细错误信息:
已添加了具有相同键的项。



代码如下

Dim g As New GroupTableBuilder("统计表1", DataTables("打印"))
g.Groups.AddDef("通知单号", "", "通知单号")
g.Groups.AddDef("订单单号", "", "订单单号")
g.Groups.AddDef("卡号", "", "卡号")
g.Groups.AddDef("客户", "", "客户")

g.Totals.AddDef("TBSTT", AggregateEnum.Count)
g.Totals.AddDef("临时1", AggregateEnum.Count, "页数")
g.Build()
MainTable = Tables("统计表1")

Dim r As Double
For Each dr As DataRow In DataTables("统计表1").DataRows
    dr("页数") = math.Ceiling(dr("TBSTT") / 5)
Next


If DataTables.Contains("统计表1") Then

Dim gg As New GroupTableBuilder("统计表2", DataTables("统计表1"))
gg.Groups.AddDef("通知单号")
gg.Totals.AddDef("页数")
gg.Build()
MainTable = Tables("统计表2")
End If


vars("序号") = 0
vars("总页") = 0

Select Case e.Book.TempLate
   Case "print_notice"
        e.Book.Marks.Add("页号", "")
        e.Book.Marks.Add("pg", 0)
End Select

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


加好友 发短信
等级:超级版主 帖子:106688 积分:542629 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/6/10 8:59:00 [只看该作者]

看不出是什么问题,请上传实例测试

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


加好友 发短信
等级:一尾狐 帖子:446 积分:3408 威望:0 精华:0 注册:2015/3/4 15:55:00
回复:(有点蓝)看不出是什么问题,请上传实例测试  发帖心情 Post By:2023/6/10 10:34:00 [只看该作者]

暂时解决了,去掉生成Excel打印另存PDF这段代码就可以了

 回到顶部