Foxtable(狐表)用户栏目专家坐堂 → [求助] 哪列重复了?


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

主题:[求助] 哪列重复了?

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


加好友 发短信
等级:三尾狐 帖子:713 积分:5196 威望:0 精华:0 注册:2012/4/13 13:10:00
[求助] 哪列重复了?  发帖心情 Post By:2013/6/11 21:15:00 [只看该作者]

Dim bd1 As New GroupTableBuilder("订单统计表",DataTables("订单表"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("订单号码")
bd1.Groups.AddDef("客户名称")
dt1 = bd1.BuildDataSource()
Dim bd2 As New GroupTableBuilder("订单明细统计表",DataTables("订单明细表"))
Dim dt2 As fxDataSource
bd2.Groups.AddDef("订单号码")
bd2.Groups.AddDef("料号")
bd2.Groups.AddDef("数量")
dt2 = bd2.BuildDataSource()
Dim bd3 As New GroupTableBuilder("出库计划统计表",DataTables("出库计划表"))
Dim dt3 As fxDataSource
bd3.Groups.AddDef("订单号码")
bd3.Groups.AddDef("料号")
bd3.Groups.AddDef("计划_出库日期")
bd3.Groups.AddDef("计划_出库数量")
dt3 = bd3.BuildDataSource()
Dim bd4 As New GroupTableBuilder("料号管理统计表",DataTables("料号管理"))
Dim dt4 As fxDataSource
bd4.Groups.AddDef("料号")
bd4.Groups.AddDef("客户名称")
bd4.Groups.AddDef("机种")
bd4.Groups.AddDef("材质")
bd4.Groups.AddDef("规格")
dt4 = bd4.BuildDataSource()
Dim Cols1() As String = {"订单号码","料号"}
Dim Cols2() As String = {"料号","客户名称"}
dt2.Combine("订单号码",dt1,"订单号码")
dt2.Combine(Cols1,dt3,Cols1)
dt4.combine(Cols2,dt2,Cols2)
dt4.show("排程统计表")

 回到顶部