以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]请老师在村级表中生成报表按钮里添加代码，实现在生成报表时能把总人口数从总人口表中得到并生成一个合计数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=61538)
--  作者：lrh9537
--  发布时间：2014/12/14 13:18:00
--  [求助]请老师在村级表中生成报表按钮里添加代码，实现在生成报表时能把总人口数从总人口表中得到并生成一个合计数

请老师在村级表中生成报表按钮里添加代码，实现在生成报表时能把总人口数从总人口表中得到并生成一个合计数


另外我设计了一个导入人口按钮，会把人口导过来，但不会合计，请帮忙改下 ，

同样在镇级表生成报表按钮里无法实现统计村级人口数，请帮忙改下，谢谢


[此贴子已经被作者于2014-12-14 13:40:42编辑过]
--  作者：czy
--  发布时间：2014/12/14 13:26:00
--  

1、

……

        Dim r As Row = t.AddNew
        r("单位") = dr("单位名称")
        r("组名称") = dr("组名称")
        r("总人口数") = dr("总人口数")

……
--  作者：lrh9537
--  发布时间：2014/12/14 13:40:00
--  

谢谢，真的可以哦。

镇级表怎么改

[此贴子已经被作者于2014-12-14 13:46:21编辑过]
--  作者：lrh9537
--  发布时间：2014/12/14 13:47:00
--  

谢谢，真的可以哦。

镇级表怎么改
--  作者：czy
--  发布时间：2014/12/14 13:52:00
--  

刚才忙别的事去了

 

2、

For Each dr As DataRow In DataTables("村级一览表").DataRows
    If dr("单位") <> "合计"
        Dim dr1 As DataRow = DataTables("总人口").Find("单位名称 = \'" & dr("单位") & "\' and 组名称 = \'" & dr("组名称") & "\'")
        If dr1 IsNot Nothing Then \'如果找到的话
            dr("总人口数") = dr1("总人口数")
        End If
    Else
        dr("总人口数") = DataTables("村级一览表").Compute("sum(总人口数)","单位 <> \'合计\'")
    End If
Next
--  作者：czy
--  发布时间：2014/12/14 13:52:00
--  
镇级没时间看了，应该和上面的代码类似吧
--  作者：czy
--  发布时间：2014/12/14 13:56:00
--  

还是抽时间帮你改一下

 

……

    r("单位") = ary
    Dim filter As String = "单位名称 = \'" & ary & "\'"
    r("总人口数") = DataTables("总人口").Compute("sum(总人口数)",filter)

……
--  作者：lrh9537
--  发布时间：2014/12/14 13:58:00
--  
帮我再看下，有一点不一样，请帮忙改下
--  作者：lrh9537
--  发布时间：2014/12/14 14:04:00
--  
谢谢老师
--  作者：有点甜
--  发布时间：2014/12/14 14:08:00
--  
 上传例子