- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 有关报关输出汇总问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127022)
-- 发布时间：2018/11/3 8:52:00
-- [求助] 有关报关输出汇总问题
[此贴子已经被作者于2019/10/7 10:51:24编辑过]
-- 发布时间：2018/11/3 9:32:00
--
请上传具体实例说明
-- 发布时间：2018/11/3 10:31:00
--
这个实列。请指点一下。谢谢。
[此贴子已经被作者于2019/10/7 10:51:34编辑过]
-- 发布时间：2018/11/3 11:43:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:packing list.xls |
做个打印按钮，代码
Dim Book As New XLS.Book(ProjectPath & "Attachments\\Packing list.xls")
Dim fl As String = ProjectPath & "Reports\\_Packing list.xls"
Dim g As New GroupTableBuilder("统计表1", DataTables("Packinglist"))
g.Groups.AddDef("Box_No")
g.Groups.AddDef("Volume_CBM")
g.Totals.AddDef("Box_No", AggregateEnum.Count)
g.Filter = Tables("Packinglist").Filter
Dim dt As DataTable = g.Build(True)
vars("总箱数") = dt.DataRows.Count
vars("总立方") = dt.Compute("sum(Volume_CBM)")
Book.Build() \'生成细节区
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim idx As Integer = 5
For i As Integer = 6 To sheet.Rows.Count - 2
If sheet(i,0).text <> sheet(i-1,0).text
If i > idx +1
Sheet.MergeCell(idx,0,i-idx,1)
Sheet.MergeCell(idx,1,i-idx,1)
Sheet.MergeCell(idx,2,i-idx,1)
Sheet.MergeCell(idx,3,i-idx,1)
Sheet.MergeCell(idx,4,i-idx,1)
Sheet.MergeCell(idx,5,i-idx,1)
End If
idx = i
End If
Next
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
-- 发布时间：2018/11/3 12:32:00
--
[此贴子已经被作者于2019/10/7 10:53:06编辑过]
-- 发布时间：2018/11/3 12:48:00
--
另个还有个问题，我只需输出窗体中选中的shippinNo的明细到excel报表中。 另外这个GrossWeight,Volume_CBM 的加总在foxtable数据表加总中如何实现，每一行都部加总起来不对，如果ShippingNo和BoxNo重复就只取其中一个值加起来，如何实现。这个功能foxtable中找不到。谢谢了。
-- 发布时间：2018/11/3 13:45:00
--
5楼的问题请下载使用4楼的模板
-- 发布时间：2018/11/3 13:48:00
--
我只需输出窗体中选中的shippinNo的明细到excel报表中 -- 去掉<All>标记
GrossWeight,Volume_CBM 的加总 -- 指合计？http://www.foxtable.com/webhelp/scr/2748.htm
-- 发布时间：2018/11/3 14:09:00
--
版主，你的模板装上一，可是结果有点不对。
1. shippingNo A01 总共3箱，A02 总共1箱。可是模板导出始终是1，2，2
2. Description 不需要合并
3. 合并后，能占用一行单元格吗？ 现在占用好多行， 在Excel中加总就错了。
4. 我去掉<ALL>不行，如果只选择 A01就导出A01,选 A02就导出A02
谢谢。
-- 发布时间：2018/11/3 14:09:00
--
这是实例。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:q.rar |