Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]请狐表高手帮助，如何才能使代码更优？


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

主题：[求助]请狐表高手帮助，如何才能使代码更优？
帅哥哟，离线，有人找我吗？
nblwar
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：977 积分：6806 威望：0 精华：1 注册：2012/8/7 22:03:00 		  发帖心情 Post By：2012/12/15 8:04:00 [显示全部帖子]

你说的东西在哪？

 
 回到顶部
帅哥哟，离线，有人找我吗？
nblwar
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：977 积分：6806 威望：0 精华：1 注册：2012/8/7 22:03:00 		  发帖心情 Post By：2012/12/15 8:07:00 [显示全部帖子]

找半天没看见你说的那什么年龄三间分布

 回到顶部
帅哥哟，离线，有人找我吗？
nblwar
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：977 积分：6806 威望：0 精华：1 注册：2012/8/7 22:03:00 		  发帖心情 Post By：2012/12/15 8:14:00 [显示全部帖子]

找到了，没看懂你想要统计什么

 回到顶部
帅哥哟，离线，有人找我吗？
nblwar
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：977 积分：6806 威望：0 精华：1 注册：2012/8/7 22:03:00 		  发帖心情 Post By：2012/12/15 8:30:00 [显示全部帖子]

楼主你真会开玩笑，这种统计直接在数据库里面统计完输出EXCEL报表补就完了，绕那么大一个圈子写这么多代码图片点击可在新窗口打开查看

 

 

建议楼主看看  交叉统计  和 临时表    

 

如果你没必要把12个月全部显示出来，只显示有数据的月份，直接用交叉统计生成就行，不需要写代码

如果你想要显示的样板跟你EXCEL模版一模一样，就用临时表，不过要写代码

[此贴子已经被作者于2012-12-15 8:44:43编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
nblwar
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：977 积分：6806 威望：0 精华：1 注册：2012/8/7 22:03:00 		  发帖心情 Post By：2012/12/15 8:47:00 [显示全部帖子]

我看他那个模板，如果他要求不高，时空分布和职业分布可以直接用交叉统计生成结果，没必要写代码

http://www.foxtable.com/help/index.html?n=0835.htm 

 

年龄分布可以用临时表生成

 

http://www.foxtable.com/help/index.html?n=0835.htm

[此贴子已经被作者于2012-12-15 9:25:32编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
nblwar
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：977 积分：6806 威望：0 精华：1 注册：2012/8/7 22:03:00 		  发帖心情 Post By：2012/12/15 8:52:00 [显示全部帖子]

是的，需要用临时表

 回到顶部
帅哥哟，离线，有人找我吗？
nblwar
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：977 积分：6806 威望：0 精华：1 注册：2012/8/7 22:03:00 		  发帖心情 Post By：2012/12/15 9:56:00 [显示全部帖子]

Sheet(i,2).Value =dt.Compute("count(疾病名称)","[疾病名称]='"& Jb_cmb &"' and [所属社区]='"& Sheet(i,1).Value &"' And [发病日期]>='" & rq_m1 & "' And [发病日期]<='" & rq_d1 & "'")

 

红色的地方

[此贴子已经被作者于2012-12-15 9:56:13编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
nblwar
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：977 积分：6806 威望：0 精华：1 注册：2012/8/7 22:03:00 		  发帖心情 Post By：2012/12/15 9:58:00 [显示全部帖子]

真心劝楼主不要用这种方法做,不但累死你,还累死帮你的人

 回到顶部
帅哥哟，离线，有人找我吗？
nblwar
 小大  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：977 积分：6806 威望：0 精华：1 注册：2012/8/7 22:03:00 		  发帖心情 Post By：2012/12/15 10:02:00 [显示全部帖子]

    Case "坯料统计"
        '.........
        Dim dtb As New DataTableBuilder("坯料统计")
        dtb.AddDef("客户", Gettype(String), 16)
        dtb.AddDef("合金", Gettype(String), 16)
        dtb.AddDef("坯料规格", Gettype(String), 30)
        dtb.AddDef("生产批号", Gettype(String), 30)
        dtb.AddDef("总数", Gettype(Integer))
        dtb.AddDef("当前规格_7", Gettype(Integer),"","7.0")
        dtb.AddDef("当前规格_4", Gettype(Integer),"","4.0")
        dtb.AddDef("当前规格_18", Gettype(Integer),"","1.8")
        dtb.AddDef("当前规格_18Q", Gettype(Integer),"","1.8已切")
        dtb.AddDef("当前规格_1", Gettype(Integer),"","1.0")
        dtb.AddDef("当前规格_05", Gettype(Integer),"","0.5")
        dtb.AddDef("当前规格_03", Gettype(Integer),"","0.3")
        dtb.Build()
        For Each nm() As String In DataTables("坯料跟踪表").GetUniqueValues("","客户","合金","坯料规格","生产批号")
            Dim dr As DataRow = DataTables("坯料统计").AddNew()
            dr("客户") = nm(0)
            dr("合金") = nm(1)
            dr("坯料规格") = nm(2)
            dr("生产批号") = nm(3)
            dr("当前规格_7") = DataTables("坯料跟踪表").Compute("COUNT(熔铸编号)","[客户] = '" & nm(0) & "' And [合金] = '" & nm(1) & "' And [坯料规格] = '" & nm(2) & "' And [生产批号] = '" & nm(3) & "' And [当前规格] = '7.0'")
            dr("当前规格_4") = DataTables("坯料跟踪表").Compute("COUNT(熔铸编号)","[客户] = '" & nm(0) & "' And [合金] = '" & nm(1) & "' And [坯料规格] = '" & nm(2) & "' And [生产批号] = '" & nm(3) & "' And [当前规格] = '4.0'")
            dr("当前规格_18") = DataTables("坯料跟踪表").Compute("COUNT(熔铸编号)","[客户] = '" & nm(0) & "' And [合金] = '" & nm(1) & "' And [坯料规格] = '" & nm(2) & "' And [生产批号] = '" & nm(3) & "' And [当前规格] = '1.8'")
            dr("当前规格_18Q") = DataTables("坯料跟踪表").Compute("COUNT(熔铸编号)","[客户] = '" & nm(0) & "' And [合金] = '" & nm(1) & "' And [坯料规格] = '" & nm(2) & "' And [生产批号] = '" & nm(3) & "' And [当前规格] = '1.8Q'")
            dr("当前规格_1") = DataTables("坯料跟踪表").Compute("COUNT(熔铸编号)","[客户] = '" & nm(0) & "' And [合金] = '" & nm(1) & "' And [坯料规格] = '" & nm(2) & "' And [生产批号] = '" & nm(3) & "' And [当前规格] = '1.0'")
            dr("当前规格_05") = DataTables("坯料跟踪表").Compute("COUNT(熔铸编号)","[客户] = '" & nm(0) & "' And [合金] = '" & nm(1) & "' And [坯料规格] = '" & nm(2) & "' And [生产批号] = '" & nm(3) & "' And [当前规格] = '0.5'")
            dr("当前规格_03") = DataTables("坯料跟踪表").Compute("COUNT(熔铸编号)","[客户] = '" & nm(0) & "' And [合金] = '" & nm(1) & "' And [坯料规格] = '" & nm(2) & "' And [生产批号] = '" & nm(3) & "' And [当前规格] = '0.3'")
            dr("总数") = DataTables("坯料跟踪表").Compute("COUNT(熔铸编号)","[客户] = '" & nm(0) & "' And [合金] = '" & nm(1) & "' And [坯料规格] = '" & nm(2) & "' And [生产批号] = '" & nm(3) & "'")
        Next

 回到顶部
帅哥哟，离线，有人找我吗？
nblwar
 小大  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：977 积分：6806 威望：0 精华：1 注册：2012/8/7 22:03:00 		  发帖心情 Post By：2012/12/15 10:03:00 [显示全部帖子]

这是我以前写的一个代码,CYZ帮我的,给你参考
[此贴子已经被作者于2012-12-15 10:03:20编辑过]
 回到顶部
总数 16 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04199 秒, 5 次数据查询