交叉统计的垂直自动汇总合计行不是在最后一行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

甜老师，交叉统计的垂直自动汇总合计行因为是两个统计表关联，然后就没有在最后一行，要怎么弄呢。。。

Dim b1 As New sqlCrossTableBuilder("统计表1","biaoA")

Dim dt1 As fxDataSource

b1.hGroups.AddDef("店仓ID")

b1.hGroups.AddDef("商品款号")

b1.hGroups.AddDef("店仓名称","销售数量_店仓名称")

b1.vGroups.AddDef("尺码", "销售数量_{0}")

b1.Totals.AddDef("销售数量" ) '根据产品分组

b1.filter = filter & " and 商品款号 = '" & e.Form.Controls("table1").Table.current("商品款号") & "'"

b1.HorizontalTotal = True

b1.VerticalTotal = True

b1.CommandTimeOut = 600

dt1 = b1.BuildDataSource()

Dim b2 As New SQLcrossTableBuilder("统计表2","biaoB")

Dim dt2 As fxDataSource

b2.hGroups.AddDef("店仓ID")

b2.hGroups.AddDef("商品款号")

b2.hGroups.AddDef("店仓名称","可用库存_店仓名称")

b2.vGroups.AddDef("尺码", "可用库存_{0}")

b2.Totals.AddDef("可用库存") '根据产品分组

b2.filter = "商品款号 = '" & e.Form.Controls("table1").Table.current("商品款号") & "'"

b2.HorizontalTotal = True

b2.VerticalTotal = True

b2.CommandTimeOut = 600

dt2 = b2.BuildDataSource()

Dim nms As String() = {"商品款号","店仓ID"} '指定连接列

dt1.Combine(nms,dt2,nms) '将销售统计数据组合到进货统计数据

e.Form.Controls("table2").Table.DataSource = dt1

此主题相关图片如下：微信截图_20171102160035.png

[此贴子已经被作者于2017/11/2 16:03:19编辑过]

你可以在生成表格以后，自己加入一行，然后合计所有列的数据。

恩恩，甜老师，因为要统计的列是根据销售数据来，是变动的

所以也不知道哪些列有。

此主题相关图片如下：微信截图_20171102162136.png

另外，像这种统计表，怎么再另外增加一行呢。。。

增加列我知道，增加行还不知道

[此贴子已经被作者于2017/11/2 16:20:35编辑过]

循环不就可以了？

Dim t As Table = Tables("表A")
Dim nr As Row = t.AddNew
nr("第一列") = "合计"
For Each c As Col In t.cols
    If c.IsNumeric Then
        nr(c) = t.Compute("sum(" & c.name & ")")
    End If
Next

哦哦，谢谢甜老师！！！

甜老师，

我想让合计行放在第一行，能有办法吗？

这种统计表不支持移动行，所以用 move(0) 不行

我尝试把

Dim t As Table = Tables("表A")
Dim nr As Row = t.AddNew
放在统计的前面，会报错说没有哪一列。

因为后面有用到

For Each dr As DataRow In e.Form.Controls("table2").Table.DataTable.DataRows

dr("销量占比") = dr("合计_销售数量") / nr("合计_销售数量")

[此贴子已经被作者于2017/11/2 18:37:02编辑过]

插入一列_Sortkey列，如

Dim t As Table = Tables("统计表1")
t.DataTable.datacols.Add("_Sortkey", Gettype(Double))
t.sort = "_sortkey"
t.sort = ""
t.DataTable.ReplaceFor("_sortkey", 3)
Dim nr As Row = t.AddNew
nr.move(0)

厉害了，甜老师！！

主题：交叉统计的垂直自动汇总合计行 不是在最后一行

主题：交叉统计的垂直自动汇总合计行不是在最后一行