Foxtable(狐表)用户栏目专家坐堂 → 对交叉统计进行合计 有个问题需要请教?


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

主题:对交叉统计进行合计 有个问题需要请教?

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


加好友 发短信
等级:九尾狐 帖子:2552 积分:20045 威望:0 精华:0 注册:2012/5/19 11:57:00
  发帖心情 Post By:2015/3/22 20:32:00 [只看该作者]

固定的excel 我会的,但是字段是变动的 因为原始表的日期是活的,因此交叉生成的日期也不是固定的,有点难度


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


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

以下是引用jswjyjf在2015/3/22 20:32:00的发言:

固定的excel 我会的,但是字段是变动的 因为原始表的日期是活的,因此交叉生成的日期也不是固定的,有点难度

 

参考上面的代码,循环每一列,填入excel模板就行啊


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


加好友 发短信
等级:九尾狐 帖子:2552 积分:20045 威望:0 精华:0 注册:2012/5/19 11:57:00
  发帖心情 Post By:2015/3/22 20:37:00 [只看该作者]

不会啊 还望甜老师帮忙一下

 


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


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


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


加好友 发短信
等级:九尾狐 帖子:2552 积分:20045 威望:0 精华:0 注册:2012/5/19 11:57:00
  发帖心情 Post By:2015/3/22 20:39:00 [只看该作者]

字段固定的excel 报表,我会的,可上面项目生成的表的字段是动态的

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


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

 看14楼

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


加好友 发短信
等级:九尾狐 帖子:2552 积分:20045 威望:0 精华:0 注册:2012/5/19 11:57:00
  发帖心情 Post By:2015/3/22 20:46:00 [只看该作者]

在模板中如何循环列

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


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

 For i As Integer = 0 To Tables("表a").cols.count - 1
    sheet(1, i).Text = Tables("表a").cols(i).Name
Next

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


加好友 发短信
等级:九尾狐 帖子:2552 积分:20045 威望:0 精华:0 注册:2012/5/19 11:57:00
  发帖心情 Post By:2015/3/22 21:06:00 [只看该作者]

Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
 For i As Integer = 0 To Tables("统计表1").cols.count - 1
    sheet(1, i).value = Tables("统计表1").cols(i).Name
Next

Book.Save("c:\reports\test.xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = "c:\reports\test.xls"
Proc.Start()

 

还是不会

 


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


加好友 发短信
等级:九尾狐 帖子:2552 积分:20045 威望:0 精华:0 注册:2012/5/19 11:57:00
  发帖心情 Post By:2015/3/22 21:08:00 [只看该作者]

而且字段都是 件数1 件数2 。。。。

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