Foxtable(狐表)用户栏目专家坐堂 → crossTableBuilder排除重复值


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

主题:crossTableBuilder排除重复值

美女呀,离线,留言给我吧!
lfz123
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:530 积分:4613 威望:0 精华:0 注册:2018/3/24 18:04:00
crossTableBuilder排除重复值  发帖心情 Post By:2018/12/22 10:58:00 [只看该作者]


请教:如何在统计入库单数的时候排除重复值,同一个入库单有多项入库明细,按照单号就重复了

图片点击可在新窗口打开查看此主题相关图片如下:入库单1.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:排除重复值问题.png
图片点击可在新窗口打开查看
Dim g As New crossTableBuilder("统计表1", DataTables("入库单"))
g.filter = " 供应商简称 = '"& CurrentTable.Current("供应商简称") & "' and 申请单号 is null"
g.HGroups.AddDef("入库日期", DateGroupEnum.Year, "年")
g.HGroups.AddDef("入库日期", "月")
g.VGroups.AddDef("对账","已对帐|未对账")
g.Totals.AddDef("入库单号",AggregateEnum.Count, "入库单数") '怎样排除重复值?
g.Totals.AddDef("含税金额","金额")
g.Decimals = 2
g.HorizontalTotal = True
g.VerticalTotal = True
g.Subtotal = True
Tables("对账统计表_table1").DataSource  = g.BuildDataSource
Tables("对账统计表_table1").DataTable.DataCols("含税金额_1").SetFormat("0.00")
Tables("对账统计表_table1").DataTable.DataCols("含税金额_2").SetFormat("0.00")
Tables("对账统计表_table1").DataTable.DataCols("合计_金额").SetFormat("0.00")


[此贴子已经被作者于2018/12/22 11:00:37编辑过]

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


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/12/22 11:27:00 [只看该作者]

去掉g.Totals.AddDef("入库单号",AggregateEnum.Count, "入库单数")

改为动态添加列进行代码统计
DataTables("统计表1").DataCols.Add("入库单数",Gettype(integer))
For Each dr As datarow In DataTables("统计表1").DataRows 
  dim d as date = new date(val(dr("年")),
val(dr("月")),1)
  dr("入库单数") = DataTables("入库单").GetValues("入库单号","入库日期 >='" & d & "' and 入库日期 < '" & d.AddMonths(1) & "'").Count
Next

 回到顶部