子表交叉统计时，临时表中如何自动引入父表中的相关列项？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

谢谢啦。万分感谢。您帮手查看下，改动一下，

1、‘发货日期’与‘物流费用’的列属性，应该不对，我不会改

2、插入的列，能不能插在表前面，（方便查看和导出）

Dim g As New CrossTableBuilder("统计表1", DataTables("出库明细"))

g.HGroups.AddDef("出库编号")

g.VGroups.AddDef("展柜名称")

g.Totals.AddDef("出库_数量", "出库_数量")

g.OrderByTotal = True

g.HorizontalTotal = True

g.VerticalTotal = True

g.Subtotal = True

g.Build()

MainTable = Tables("统计表1")

DataTables("统计表1").datacols.add("客户姓名",Gettype(String),32)

DataTables("统计表1").datacols.add("收货地址",Gettype(String),64)

DataTables("统计表1").datacols.add("发货日期",Gettype(String),32)

DataTables("统计表1").datacols.add("物流费用",Gettype(String),32)

Dim dt As DataTable = DataTables("出库主表")

Dim dr As DataRow

For Each r As Row In Tables("统计表1").rows

dr = dt.find("配发编号='" & r("出库编号") & "'")

r("客户姓名") = dr("客户姓名")

r("收货地址") = dr("收货地址")

r("发货日期") = dr("发货日期")

r("物流费用") = dr("物流费用")

Forms("返回").OpenTo("统计表1")

Forms("返回").Controls("TextBox1").Value = "提示: ."

MainTable.Focus()

[此贴子已经被作者于2024/5/9 11:30:11编辑过]

主题：子表交叉统计时，临时表中如何自动引入父表中的相关列项？