Foxtable(狐表)用户栏目专家坐堂 → [求助] 有关报关输出汇总问题


  共有569人关注过本帖树形打印复制链接

主题:[求助] 有关报关输出汇总问题

帅哥哟,离线,有人找我吗?
sanny
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:73 积分:491 威望:0 精华:0 注册:2018/11/3 8:24:00
[求助] 有关报关输出汇总问题  发帖心情 Post By:2018/11/3 8:52:00 [只看该作者]

您好,请见我的问题描述如附件,谢谢。

 

1 这个总箱数如何取值?
实际是2箱,
2 合并输出后,这个总立主数加总不对? 只要 0.99就好了
3 把G列移到A列,这个合并结果就不对了,造成C,D,E,F全部合在一起了。移动G列后,如何让它还保证这样的合并效果。

 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:q.xlsx


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:23372 积分:119198 威望:0 精华:7 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/11/3 9:32:00 [只看该作者]

请上传具体实例说明


 回到顶部
帅哥哟,离线,有人找我吗?
sanny
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:73 积分:491 威望:0 精华:0 注册:2018/11/3 8:24:00
  发帖心情 Post By:2018/11/3 10:31:00 [只看该作者]

这个实列。请指点一下。谢谢。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:q.rar


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:23372 积分:119198 威望:0 精华:7 注册:2015/6/24 9:21:00
  发帖心情 Post By: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()

 回到顶部
帅哥哟,离线,有人找我吗?
sanny
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:73 积分:491 威望:0 精华:0 注册:2018/11/3 8:24:00
  发帖心情 Post By:2018/11/3 12:32:00 [只看该作者]

版主老师,按照这个代码做了,可是不对。请帮忙看看这个附件。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:q.rar


 回到顶部
帅哥哟,离线,有人找我吗?
sanny
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:73 积分:491 威望:0 精华:0 注册:2018/11/3 8:24:00
  发帖心情 Post By:2018/11/3 12:48:00 [只看该作者]

另个还有个问题,我只需输出窗体中选中的shippinNo的明细到excel报表中。 另外这个GrossWeight,Volume_CBM 的加总在foxtable数据表加总中如何实现,每一行都部加总起来不对,如果ShippingNo和BoxNo重复就只取其中一个值加起来,如何实现。这个功能foxtable中找不到。谢谢了。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:23372 积分:119198 威望:0 精华:7 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/11/3 13:45:00 [只看该作者]

5楼的问题请下载使用4楼的模板

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:23372 积分:119198 威望:0 精华:7 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/11/3 13:48:00 [只看该作者]

我只需输出窗体中选中的shippinNo的明细到excel报表中 -- 去掉<All>标记

GrossWeight,Volume_CBM 的加总  -- 指合计?http://www.foxtable.com/webhelp/scr/2748.htm

 回到顶部
帅哥哟,离线,有人找我吗?
sanny
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:73 积分:491 威望:0 精华:0 注册:2018/11/3 8:24:00
  发帖心情 Post By: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

 

谢谢。


 回到顶部
帅哥哟,离线,有人找我吗?
sanny
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:73 积分:491 威望:0 精华:0 注册:2018/11/3 8:24:00
  发帖心情 Post By:2018/11/3 14:09:00 [只看该作者]

这是实例。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:q.rar


 回到顶部
总数 58 1 2 3 4 5 6 下一页