Foxtable(狐表)用户栏目专家坐堂 → excel打印报表,将日期横向排列


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

主题:excel打印报表,将日期横向排列

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


加好友 发短信
等级:四尾狐 帖子:858 积分:6381 威望:0 精华:0 注册:2017/2/13 9:04:00
excel打印报表,将日期横向排列  发帖心情 Post By:2018/5/24 9:25:00 [只看该作者]

通过订单号将“出货计划”和“出货计划明细”建立了关联

图片点击可在新窗口打开查看此主题相关图片如下:未命名.png
图片点击可在新窗口打开查看
现在要按照下图格式做Excel报表,如何实现
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:出货计划.xls


图片点击可在新窗口打开查看此主题相关图片如下:未命名2.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2018/5/24 9:28:21编辑过]

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


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


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


加好友 发短信
等级:四尾狐 帖子:858 积分:6381 威望:0 精华:0 注册:2017/2/13 9:04:00
  发帖心情 Post By:2018/5/24 11:06:00 [只看该作者]

不能通过excel报表解决吗?
我那个出货计划明细是关联表,提示GetValues不是table的成员
Dim dtb As New DataTableBuilder("横向出货计划")
dtb.AddDef("订单号", Gettype(String), 32)
For Each v As String In Tables("出货计划.出货计划明细").GetValues("计划走货日期")
    dtb.AddDef(v, Gettype(Double))
Next
dtb.Build()
For Each v As String In Tables("出货计划.出货计划明细").GetValues("订单号")
    Dim dr1 As DataRow = DataTables("横向出货计划").AddNew()
    dr1("订单号") = v
    For Each dr2 As DataRow In Tables("出货计划.出货计划明细").Select("订单号 = '" & v & "'")
       dr1(dr2("计划走货日期")) = dr2("计划走货量")
    Next
Next
MainTable = Tables("横向出货计划")

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


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

对于复杂的报表,是不能直接用excel报表解决的。要先生成对应的table,然后再想办法导出。

 

For Each v As String In Tables("出货计划.出货计划明细").GetValues("计划走货日期")

 

要改成

 

For Each v As String In DataTables("出货计划明细").GetValues("计划走货日期")


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


加好友 发短信
等级:四尾狐 帖子:858 积分:6381 威望:0 精华:0 注册:2017/2/13 9:04:00
  发帖心情 Post By:2018/5/24 13:43:00 [只看该作者]

.NET Framework 版本:2.0.50727.3655
Foxtable 版本:2018.3.9.1
错误所在事件:窗口,出货计划,Button4,Click
详细错误信息:
索引超出范围。必须为非负值并小于集合大小。
参数名: index

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


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

上传具体实例、代码说明你的问题。

 回到顶部