Foxtable(狐表)用户栏目专家坐堂 → [求助]excel报表实现


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

主题:[求助]excel报表实现

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


加好友 发短信
等级:幼狐 帖子:189 积分:1658 威望:0 精华:0 注册:2011/5/25 17:51:00
[求助]excel报表实现  发帖心情 Post By:2011/9/3 10:33:00 [显示全部帖子]

能用excel报表功能实现这样的表吗

  姓名    金额   姓名     金额 

   张三

   12    王楼    45
   李斯    232    党法    34
   李四    35    水管工    45
   王五    445    大厦    56

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


加好友 发短信
等级:幼狐 帖子:189 积分:1658 威望:0 精华:0 注册:2011/5/25 17:51:00
  发帖心情 Post By:2011/9/3 10:36:00 [显示全部帖子]

原始的数据表是这样的

  姓名   金额  
   张三    12
   王楼    45
   李斯    232
   党法    34
   李四   35 
   水管工    45
   王五    445
   大厦    56
       

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


加好友 发短信
等级:幼狐 帖子:189 积分:1658 威望:0 精华:0 注册:2011/5/25 17:51:00
  发帖心情 Post By:2011/9/4 9:19:00 [显示全部帖子]

以下是引用紙上不談兵在2011-9-3 11:17:00的发言:

Dim jb As New SQLJoinTableBuilder("分栏","表A")
jb.AddCols("姓名","金额")
jb.AddExp("姓名1","姓名")
jb.AddExp("金额1","金额")
jb.build

Dim t1,t2 As Table
t1 = Tables("表A")
t2 = Tables("分栏")
t2.DataTable.DataRows.Clear
Dim n As Integer = t1.DataTable.Compute("count(金额)","姓名 is not null")
t2.AddNew(Math.Ceiling(n/2))
For n = 0 To t2.Rows.count-1
   t2.Rows(n)("姓名")  = t1.Rows(2*n)("姓名") 
   t2.Rows(n)("金额")  = t1.Rows(2*n)("金额") 
   t2.Rows(n)("姓名1")  = t1.Rows(2*n+1)("姓名") 
   t2.Rows(n)("金额1")  = t1.Rows(2*n+1)("金额") 
Next
不知道在哪个事件中加入代码?请问这里的知识点是哪儿的?

[此贴子已经被作者于2011-9-3 11:42:39编辑过]


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


加好友 发短信
等级:幼狐 帖子:189 积分:1658 威望:0 精华:0 注册:2011/5/25 17:51:00
  发帖心情 Post By:2011/9/4 9:23:00 [显示全部帖子]

最好能上个例子,先谢了!

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


加好友 发短信
等级:幼狐 帖子:189 积分:1658 威望:0 精华:0 注册:2011/5/25 17:51:00
  发帖心情 Post By:2011/9/4 9:45:00 [显示全部帖子]

直接引用不错,适用于数据少的,多的就不行了

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


加好友 发短信
等级:幼狐 帖子:189 积分:1658 威望:0 精华:0 注册:2011/5/25 17:51:00
  发帖心情 Post By:2011/9/4 22:42:00 [显示全部帖子]

用标签最简单!学习了!


 回到顶部