主题：[求助]新人请教是否可以关于指定行的求和统计

 你这种，需要使用代码分别进行计算的，参考 http://www.foxtable.com/webhelp/scr/0681.htm

 不会做的话，上传具体实例。

老师好：教程看的有点蒙，之好把表格上传了。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.zip

参考代码

Dim dt As DataTable = DataTables("年度预算制定")
Dim g As New GroupTableBuilder("统计表1", dt)
g.Groups.AddDef("一级科目")
g.Groups.AddDef("二级科目")
g.Totals.AddDef("金额")
g.Totals.AddDef("业务开发部", AggregateEnum.Count)
g.Totals.AddDef("运营管理部")
g.Build()
Dim t As Table = Tables("统计表1")
With t
    .MergeMode = MergeModeEnum.Standard
    .MergeCols.Clear()
    .MergeCols.Add("一级科目")
    .MergeCols.Add("二级科目")
    .MergeSort = "一级科目,二级科目"
    .AllowMerge = True
End With
Dim nr1 As Row = t.AddNew
nr1("一级科目") = "总收入"
Dim nr2 As Row = t.AddNew
nr2("一级科目") = "总支出"
Dim nr3 As Row = t.AddNew
nr3("一级科目") = "利润"
Dim nr4 As Row = t.AddNew
nr4("一级科目") = "奖金后利润"
Dim cs() As String = {"金额", "业务开发部", "运营管理部"}
For Each c As String In cs
    nr1(c) = dt.Compute("sum(" & c & ")", "类别='收入'")
    nr2(c) = dt.Compute("sum(" & c & ")", "类别='支出'")
    nr3(c) = nr1(c) - nr2(c)
    nr4(c) = nr3(c) - dt.Compute("sum(" & c & ")", "二级科目='年终奖'")
Next
MainTable = Tables("统计表1")

参考代码

Dim dt As DataTable = DataTables("年度预算制定")

Dim t As Table = Tables("年度预算制定")
With t
    .MergeMode = MergeModeEnum.Standard
    .MergeCols.Clear()
    .MergeCols.Add("类别")
    .MergeCols.Add("一级科目")
    .MergeCols.Add("二级科目")
    .MergeSort = "一级科目,二级科目"
    .AllowMerge = True
End With
Dim filter As String = "一级科目 In ('总收入', '总支出', '利润', '奖金后利润')"
dt.DeleteFor(filter)
filter = "一级科目 not In ('总收入', '总支出', '利润', '奖金后利润')"
Dim nr1 As Row = t.AddNew
nr1("一级科目") = "总收入"
Dim nr2 As Row = t.AddNew
nr2("一级科目") = "总支出"
Dim nr3 As Row = t.AddNew
nr3("一级科目") = "利润"
Dim nr4 As Row = t.AddNew
nr4("一级科目") = "奖金后利润"
Dim cs() As String = {"业务开发部", "运营管理部"}
For Each c As String In cs
    nr1(c) = dt.Compute("sum(" & c & ")", "类别='收入' and " & filter)
    nr2(c) = dt.Compute("sum(" & c & ")", "类别='支出' and " & filter)
    nr3(c) = nr1(c) - nr2(c)
    nr4(c) = nr3(c) - dt.Compute("sum(" & c & ")", "二级科目='年终奖' and " & filter)
Next

那你命名的时候，要有规律，比如 xx_销售一部 xx_销售二部，那么就直接去开头是xx_的列

Dim cs As new List(Of String)
For Each c As Col In t.cols
    If c.Name.StartsWith("xx_") Then
        cs.add(c.name)
    End If
Next