老师好，关于跨表引用数据后的合计模式代码问题
问题描述 ：有2个表 ：门窗信息表 门窗玻璃表 门窗玻璃表的数据就是老师您这几天帮忙写的分格排列组合代码 已经没问题了 具体生成的数据如门窗玻璃表 （只罗列了部分列数据）
现在想在门窗玻璃中进行门窗数量合计 按咱们得教程合计代码合计的结果是整个门窗数量列合计的结果，不准确， 实际上门窗信息合计的结果是准确的，我想在咱们进行数据排列组合后的门窗玻璃表中进行门窗数量列的合计 ，为此我写了下面的代码，请老师看看问题出在哪儿 ，谢谢老师
| 门窗信息 |
| 区域划分 |
楼栋代号 |
门窗代号 |
门窗数量 |
| 分区一 |
1号楼 |
C1212 |
8 |
| 分区二 |
3号楼 |
C2412 |
22 |
| 分区三 |
4号楼 |
C2412 |
33 |
| 分区四 |
6号楼 |
C2412 |
44 |
| 分区一 |
10号楼 |
C2412 |
55 |
|
|
|
162 |
| 门窗玻璃 |
| 区域划分 |
楼栋代号 |
门窗代号 |
门窗数量 |
分格代号 |
| 分区一 |
1号楼 |
C1212 |
8 |
B1 |
| 分区一 |
1号楼 |
C1212 |
8 |
B2 |
| 分区一 |
1号楼 |
C1212 |
8 |
B3 |
| 分区二 |
3号楼 |
C2412 |
22 |
B1 |
| 分区二 |
3号楼 |
C2412 |
22 |
B2 |
| 分区三 |
4号楼 |
C2412 |
33 |
B1 |
| 分区三 |
4号楼 |
C2412 |
33 |
B2 |
| 分区三 |
4号楼 |
C2412 |
33 |
B3 |
| 分区四 |
6号楼 |
C2412 |
44 |
B4 |
| 分区四 |
6号楼 |
C2412 |
44 |
B5 |
| 分区一 |
10号楼 |
C2412 |
55 |
B1 |
| 分区一 |
10号楼 |
C2412 |
55 |
B2 |
|
|
|
365 |
|
Dim strs As List(Of String())
strs = DataTables("门窗信息").GetValues("区域划分|楼栋代号|门窗代号", "
", "区域划分,楼栋代号,门窗代号")
For Each str As String() In strs
Dim dr As DataRow
dr("门窗数量") =
DataTables("门窗信息").Compute("sum(门窗数量)", "区域划分='" & str(0)
& "' AND 楼栋代号 ='" & str(1) & "'
AND 门窗代号
='" & str(2) & "'")
MessageBox.Show(1)
Tables("门窗玻璃").cols(dr("门窗数量")).GrandTotal = True '指定要合计的列
Tables("门窗玻璃").GrandTotal
= True '显示合计模式
Next
加好友 
发短信
Post By：2025/1/15 17:19:00 [只看该作者]
