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

1、

……

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

……

谢谢，真的可以哦。

镇级表怎么改

刚才忙别的事去了

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

还是抽时间帮你改一下

……

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

……