[求助]SQLGroupTableBuilder不知道哪里出的问题？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下是引用Bin在2013-5-14 12:09:00的发言：
g.AddTable("库存总表",Cols1,"入库表",Cols2)
g.AddTable("库存总表",Cols1,"出库表",Cols3)

很明显就是这里的问题. 改为

g.AddTable("库存总表","品名","入库表","品名")

g.AddTable("库存总表","品名","出库表","品名")

就好了.

或者任意正确的关联列.

否则他找不到关联列,因为不存在都相等的列.

[此贴子已经被作者于2013-5-14 12:10:06编辑过]

亲，因为我没有唯一的物品编号，所以必须要关联 {"品名","规格","材质","零件号"} 这四列

而且帮助文档上就是直接引用cols1的

如果是关联这四列应该如何写啊？

以下是引用muhua在2013-5-14 15:42:00的发言：

Dim g As New SQLGroupTableBuilder("分组统计表","库存总表")
        g.C
Dim Cols1() As String = {"品名","规格","材质","零件号"}
Dim Cols2() As String = {"品名","规格","材质","零件号"}
Dim Cols3() As String = {"品名","规格","材质","零件号"}
g.AddTable("库存总表",Cols1,"入库表",Cols2)
g.AddTable("库存总表",Cols1,"出库表",Cols3)
        'Dim y As Integer = e.Form.Controls("ComboBox1").text '指定年份
        'Dim m As Integer = e.Form.Controls("ComboBox2").text '指定月份
        'Dim dt1 As New Date(y, m, 1)
        'Dim dt2 As New Date(y, m, Date.DaysInMonth(y,m)) '获取该月的最后一天

g.Groups.AddDef("库存总表.库存类别")
g.Groups.AddDef("库存总表.品名")
g.Groups.AddDef("库存总表.规格")
g.Groups.AddDef("库存总表.材质")
g.Groups.AddDef("库存总表.零件号")
g.Groups.AddDef("库存总表.国标")
g.Groups.AddDef("库存总表.炉号")
g.Groups.AddDef("库存总表.等级")
g.Groups.AddDef("库存总表.品牌")
g.Groups.AddDef("库存总表.储位")
g.Totals.AddDef("入库数量")
g.Totals.AddDef("出库数量")
g.Totals.AddExp("库存数量","入库数量 - 出库数量")

        'g.Filter = "入库日期 >= #" & dt1 & "# And 入库日期 <= #" & dt2 & "#"
        'g.Filter = "出库日期 >= #" & dt1 & "# And 出库日期 <= #" & dt2 & "#"
        g.Filter = "入库日期 >= # 2013,5,1 # And 入库日期 <= # 2013,5,31 #"
        g.Filter = "出库日期 >= # 2013,5,1 # And 出库日期 <= # 2013,5,31 #"
        g.Build()

测试了跟我原来的一样……

以下是引用muhua在2013-5-14 15:58:00的发言：

下载信息 [文件大小：99.5 KB 下载次数：2]
点击浏览该文件:test2.rar

重新写了一个不报错也不生成郁闷死了要~~救命啊

Dim bd1 As New GroupTableBuilder("库存统计表",DataTables("库存总表"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("库存类别")
bd1.Groups.AddDef("品名")
bd1.Groups.AddDef("规格")
bd1.Groups.AddDef("材质")
bd1.Groups.AddDef("零件号")
bd1.Groups.AddDef("国标")
bd1.Groups.AddDef("炉号")
bd1.Groups.AddDef("等级")
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("材质")
bd2.Groups.AddDef("零件号")
bd2.Totals.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("零件号")
bd3.Totals.AddDef("出库数量")
dt3 = bd3.BuildDataSource()

Dim Cols() As String = {"品名","规格","材质","零件号"}
dt1.Combine(Cols,dt2,Cols)
dt1.Combine(Cols,dt3,Cols)
Dim dtb As New DataTableBuilder("统计表")
dtb.AddDef("库存类别", Gettype(String), 32)
dtb.AddDef("品名", Gettype(String), 32)
dtb.AddDef("规格", Gettype(String), 32)
dtb.AddDef("材质", Gettype(String), 32)
dtb.AddDef("零件号", Gettype(String), 32)
dtb.AddDef("储位", Gettype(String), 32)
dtb.AddDef("国标", Gettype(String), 32)
dtb.AddDef("炉号", Gettype(String), 32)
dtb.AddDef("等级", Gettype(String), 32)
dtb.AddDef("品牌", Gettype(String), 32)
dtb.AddDef("入库数量", Gettype(Integer))
dtb.AddDef("出库数量", Gettype(Integer))
dtb.Build()
Tables("统计表").DataSource = dt1
DataTables("统计表").DataCols.Add("库存数量",Gettype(Integer),"isnull([入库数量],0) - isnull([出库数量],0)")

还是自己搞定了……

muhua	小大 13楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2013/5/14 15:42:00 [只看该作者] 用户已被锁定

muhua	小大 15楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2013/5/14 15:58:00 [只看该作者] 用户已被锁定

主题：[求助]SQLGroupTableBuilder不知道哪里出的问题？