共6 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：子表交叉统计时，临时表中如何自动引入父表中的相关列项？
1楼
FAGG200688 发表于：2024/5/9 10:31:00请教狐爸，子表交叉统计时，临时表中如何自动引入父表中的相关列项？
此主题相关图片如下：屏幕截图(259).png
[此贴子已经被作者于2024/5/9 10:38:45编辑过]
2楼
有点蓝 发表于：2024/5/9 10:38:00先统计生成报表，再增加临时列，遍历所有行，查询父表数据填入
3楼
FAGG200688 发表于：2024/5/9 10:46:00谢谢啦，不会写
，
，
4楼
有点蓝 发表于：2024/5/9 10:50:00比如
Dim b As New CrossTableBuilder("统计表1",DataTables("xxx"))
……
b.Build '生成统计表
Maintable = Tables("统计表1") '打开生成的统计表
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("客户姓名")
next
5楼
FAGG200688 发表于：2024/5/9 11:26:00谢谢啦。万分感谢。您帮手查看下，改动一下，
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("物流费用")
Next
Forms("返回").OpenTo("统计表1")
Forms("返回").Controls("TextBox1").Value = "提示: ."
MainTable.Focus()
w
[此贴子已经被作者于2024/5/9 11:30:11编辑过]
6楼
有点蓝 发表于：2024/5/9 12:00:00Type
新增列的数据类型，需要配合GetType关键字来获得数据类型，例如GetType(String)表示字符型，GetType(Boolean)表示逻辑型。
新增列的数据类型，需要配合GetType关键字来获得数据类型，例如GetType(String)表示字符型，GetType(Boolean)表示逻辑型。
DataTables("统计表1").datacols.add("发货日期",Gettype(date))
共6 条记录, 每页显示 10 条, 页签:
[1]