| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 关于数据合计问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194798) |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| -- 作者：刘效功天津 -- 发布时间：2025/1/15 17:19:00 -- 关于数据合计问题 老师好，关于跨表引用数据后的合计模式代码问题 问题描述 ：有2个表 ：门窗信息表 门窗玻璃表 门窗玻璃表的数据就是老师您这几天帮忙写的分格排列组合代码 已经没问题了 具体生成的数据如门窗玻璃表 （只罗列了部分列数据） 现在想在门窗玻璃中进行门窗数量合计 按咱们得教程合计代码合计的结果是整个门窗数量列合计的结果，不准确， 实际上门窗信息合计的结果是准确的，我想在咱们进行数据排列组合后的门窗玻璃表中进行门窗数量列的合计 ，为此我写了下面的代码，请老师看看问题出在哪儿 ，谢谢老师
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 |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| -- 作者：有点蓝 -- 发布时间：2025/1/15 17:25:00 -- 没有办法做这种合计 |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| -- 作者：刘效功天津 -- 发布时间：2025/1/15 17:30:00 -- 奥，谢谢老师，我想就在窗口中 设计一个文本框 在门窗玻璃表中，提起门窗数量的不重复值，然后对这行动态的不重复值进行求和， 把这个动态求和的值赋值给文本框 ，这样可以吗 |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||