[求助]请狐表高手帮助，如何才能使代码更优？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

是的，需要用临时表

关键问题是我对foxtalble很菜啊，不太会用什么交叉统计、临时表等，我想做成和模版一样的统计，请各位大侠，来点具体的东东啊，麻烦了。谢谢。

楼主就安装你做的统计吧，然后一步一步看看帮助，到时候你知道怎样做最好最省力了。

代码的修改，前面已经说了。

以下是引用lin_hailun在2012-12-15 8:42:00的发言：
确实直接使用excel报表更方便，使用标记更灵活。

统计的时候，把

count(疾病名称)

改成

count(Identify)

还有就是，日期的比较不用'而是用#

[此贴子已经被作者于2012-12-15 8:51:34编辑过]

林老师，按照你给的方法改了，但是还是没有统计出结果来，是什么原因啊，请帮忙看一下。谢谢！

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在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老师，这段统计是正确的，能得出统计结果。

我说的是按年龄段统计的代码：

Sheet1(2,2).Value =dt.Compute("count(疾病名称)","[疾病名称]='"& Jb_cmb &"' and ([年龄]>=0 And [年龄]<=5) And ([发病日期]>=#" & rq_m1 & "# And [发病日期]<=#" & rq_d1 & "#)")
这段代码不能得出统计结果，请指导。

[此贴子已经被作者于2012-12-15 10:02:14编辑过]

    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

这是我以前写的一个代码,CYZ帮我的,给你参考

[此贴子已经被作者于2012-12-15 10:03:20编辑过]

nblwar老师，您的这段代码，看得我图片点击可在新窗口打开查看。

而且是使用临时表的，能否导出成为我需要的格式，我不是很清楚。

能否给点具体的代码啊。

主题：[求助]请狐表高手帮助，如何才能使代码更优？