- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 请教以下报表如何实现？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=16049)
-- 发布时间：2012/2/1 10:55:00
-- 请教以下报表如何实现？
将人员表输出为以下格式：
办公室 5人 陈成进 555 陈诗淇 391 陈思达 461 程康文 506 邓玉婷 389
财务部 20人 林景阳 556 苏 捷 601 谢杰立 465 谢晓霞 510 杨景亮 529 张李华 537 陈成进 410 陈诗淇 509 陈思达 391
程康文 529 邓玉婷 479 林景阳 465 苏 捷 537 谢杰立 554 谢晓霞 551 杨景亮 601 张李华 544 陈成进 510
陈诗淇 506 陈思达 502
人资部 3人 程康文 498 邓玉婷 494 林景阳 490
合计
办公室 5人 综合部 23人
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:20120201.table |
[此贴子已经被作者于2012-2-1 10:58:29编辑过]
-- 发布时间：2012/2/1 11:36:00
--
麻烦老师予以指导！谢了！
-- 发布时间：2012/2/1 11:54:00
--
Dim sb As new StringBuilder
Dim bms As List(of String) = DataTables("人员").GetUniqueValues("","二级部门")
For Each bm As String In bms
Dim nms As List(of String) = DataTables("人员").GetUniqueValues("二级部门 = \'" & bm & "\'", "姓名" )
sb.Append(bm & " " & nms.Count & "人")
For Each nm As String In nms
sb.append(" " & nm)
Next
sb.AppendLine("")
Next
bms = DataTables("人员").GetUniqueValues("","部门")
For Each bm As String In bms
sb.Append(bm & DataTables("人员").Compute("Count([_Identify])","部门 = \'" & bm & "\'"))
Next
output.show(sb.Tostring)
-- 发布时间：2012/2/1 15:01:00
--
请教狐狸爸爸，这相当于用狐表出了一份职工名单，如何在输出到excel报表，二级部门人多的话，如何设置换行，谢谢！
-- 发布时间：2012/2/1 15:04:00
--
这个不能输出到excel报表，知道了原理，自己用专业报表写吧。