- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 综合分组问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=69604)
-- 发布时间：2015/6/8 8:54:00
-- 综合分组问题
职工一览表分别含如下几列：姓名，性别，出生日期，入党时间，职务级别，职称。现在要自动形成如下一张综合表，不知如何编码？
分类 | 人数（人）
---------------------------
按性别 |
男
女
按政治面貌
党员
非党员
按职务分
正处
副处
正科
副科
科员
办事员
按年龄分
20--35岁
35—45
45—50
50以上
按职称分
高级
中级
员级
其他
（单一的分类好操作，但综合的不知如何弄，谢谢！）
-- 发布时间：2015/6/8 8:56:00
--
上例子.并不难.
-- 发布时间：2015/6/8 9:23:00
--
手工统计即可，控制好条件。
http://www.foxtable.com/help/topics/0681.htm
-- 发布时间：2015/6/8 9:26:00
--
类似在FOXpro中，用COUN TO for 计算后，用LOCA 定位行，用repl 替代行记录数据
-- 发布时间：2015/6/8 9:57:00
--
方法很多
上个项目文件吧
-- 发布时间：2015/6/8 10:33:00
--
求B表自动生存，谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:上传项目.table |
-- 发布时间：2015/6/8 10:44:00
--
Dim dt As DataTable = DataTables("职工一览表")
Dim dt2 As DataTable = DataTables("综合分类")
dt2.DataRows.Clear
Dim ss() As String = {"性别","职务"}
For Each lb As String In ss
Dim dr As DataRow= dt2.AddNew
dr("分类")="按" & lb
For Each s As String In dt.GetValues(lb,lb & " is not null")
dr = dt2.AddNew
dr("分类")=s
dr("人数")=dt.Compute("count(姓名)", lb & "=\'" & s & "\'")
Next
Next
参考代码.注意红色部分,要统计那些,直接在红色部分添加列名即可
-- 发布时间：2015/6/8 10:52:00
--
谢谢，谢谢！