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


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

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

帅哥,在线噢!
有点蓝
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

针对实例,需要什么效果?手工做一个最终效果发上来看看

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


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

 

GrossWeight,Volume_CBM 的加总  -- 指合计?http://www.foxtable.com/webhelp/scr/2748.htm
 
这是把表中每条记录的volumn_cbm 合计了。我的意思是 合并中的只选一条加总,否则总计重复了。比如 shippingNo 是A01, BoxNo 1,有2个产品,有两笔记录,Volumn_CMB都是 0.4968。这个boxno 1 就是0.4968,如果合并后,加总成了 0.4968+0.4968了。

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


加好友 发短信
等级:三尾狐 帖子:795 积分:5880 威望:0 精华:0 注册:2018/11/3 8:24:00
  发帖心情 Post By:2018/11/3 16:01:00 [只看该作者]

版主,我要是这种结果,谢谢。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:question.xlsx


 回到顶部
帅哥,在线噢!
有点蓝
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim Book As New XLS.Book(ProjectPath & "Attachments\Packing list.xls")
Dim fl As String = ProjectPath & "Reports\_Packing list.xls"

Dim r1 As Row = Tables("Packinglist").Rows(0)
Dim cn1 As Integer = 1
Dim cn2 As Double = r1("Volume_CBM")
For i As Integer = 1 To Tables("Packinglist").Rows.Count - 1
    Dim r As Row = Tables("Packinglist").Rows(i)
    If r("Description") & r("Box_No") <> r1("Description") & r1("Box_No")
        cn1 += 1
        cn2 += r("Volume_CBM")
        r1 = r
    End If
Next

vars("总箱数") = cn1
vars("总立方") = cn2

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).text <> sheet(i-1,0).text & sheet(i-1,1).text
        If 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
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:795 积分:5880 威望:0 精华:0 注册:2018/11/3 8:24:00
  发帖心情 Post By:2018/11/3 19:24:00 [只看该作者]

版主,还有点问题,我上传附件了,请帮忙再看一下。谢谢。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:ques.xls


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/4 21:30:00 [只看该作者]

Dim Book As New XLS.Book(ProjectPath & "Attachments\Packing list.xls")
Dim fl As String = ProjectPath & "Reports\_Packing list.xls"


Dim r1 As Row = Tables("Packinglist").Rows(0)
Dim cn1 As Integer = 1
Dim cn2 As Double = r1("Volume_CBM")
For i As Integer = 1 To Tables("Packinglist").Rows.Count - 1
    Dim r As Row = Tables("Packinglist").Rows(i)
    If r("Description") & r("Box_No") <> r1("Description") & r1("Box_No")
        cn1 += 1
        cn2 += r("Volume_CBM")
        r1 = r
    End If
Next


vars("总箱数") = cn1
vars("总立方") = cn2


Book.Build() '生成细节区
Dim Sheet As XLS.Sheet = Book.Sheets(0)


Dim idx As Integer = 5
For i As Integer = 6 To sheet.Rows.Count - 5
    If sheet(i,7).text & sheet(i,1).text <> sheet(i-1,7).text & sheet(i-1,1).text
        If i > idx +1
            For j As Integer = idx+1 To i-1
                'msgbox(j & " " & idx & " " & i)
                sheet(j, 5).value = 0
            Next
            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
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:795 积分:5880 威望:0 精华:0 注册:2018/11/3 8:24:00
  发帖心情 Post By:2018/11/4 22:37:00 [只看该作者]

谢谢版主了。 前面都对了,就是黄色的加总还是错了。请查看。谢谢。

 

另外,我要把这两个加总的结果加到表A中的总箱数和总立方字段中代码,表达式是怎样的?

 

如果我只选择相应的ShippingNo来产生报表,可以吗?现在是全部产生报表了。谢谢了。


图片点击可在新窗口打开查看此主题相关图片如下:捕获.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/4 23:25:00 [只看该作者]

1、模板

 

 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:packing list.xls
 

 

2、代码

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\Packing list.xls")
Dim fl As String = ProjectPath & "Reports\_Packing list.xls"


Dim r1 As Row = Tables("Shipments.Packinglist").Rows(0)
Dim cn1 As Integer = 1
Dim cn2 As Double = r1("Volume_CBM")
For i As Integer = 1 To Tables("Shipments.Packinglist").Rows.Count - 1
    Dim r As Row = Tables("Shipments.Packinglist").Rows(i)
    If r("ShippingNo") & r("Box_No") <> r1("ShippingNo") & r1("Box_No")
        cn1 += 1
        cn2 += r("Volume_CBM")
        r1 = r
    End If
Next


vars("总箱数") = cn1
vars("总立方") = cn2


Book.Build() '生成细节区
Dim Sheet As XLS.Sheet = Book.Sheets(0)


Dim idx As Integer = 5
For i As Integer = 6 To sheet.Rows.Count - 5
    If sheet(i,7).text & sheet(i,1).text <> sheet(i-1,7).text & sheet(i-1,1).text
        If i > idx +1
            For j As Integer = idx+1 To i-1
                'msgbox(j & " " & idx & " " & i)
                sheet(j, 5).value = 0
            Next
            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
  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:795 积分:5880 威望:0 精华:0 注册:2018/11/3 8:24:00
  发帖心情 Post By:2018/11/5 19:02:00 [只看该作者]

老师,谢谢。可是数据表按Box No 排序后,结果就不对了。请查看。
图片点击可在新窗口打开查看此主题相关图片如下:捕获1.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:捕获.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/5 19:18:00 [只看该作者]

模板左边改成

 

 

<Shipments>
<packinglist,Box_No>

 

<Shipments>

<End>


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