主题：请教能不能实现汇总打钩行的数据到指定位置?

 参考

 

http://www.foxtable.com/webhelp/scr/1964.htm

 

不会做上传具体foxtable例子。

 没看到你上传的项目。请使用ie浏览器，像上传图片那样上传具体项目。

Dim t As Table = Tables("项目开支明细")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "项目名称"
g.TotalOn = ""
g.Caption = "{0}"
t.SubtotalGroups.Add(g)

t.Subtotal()

For i As Integer = 0 To t.Rows.count(True)-1
    Dim r As Row = t.Rows(i, True)
    If r.IsGroup Then
        r("开支金额") = t.Compute("sum(开支金额)", "项目名称 = '" & r("项目名称") & "'")
        r("项目来源") = t.Compute("sum(开支金额)", "项目名称 = '" & r("项目名称") & "' and 项目来源=true")
        r("项目负责人") = t.Compute("sum(开支金额)", "项目名称 = '" & r("项目名称") & "' and 项目负责人=true")
    End If
Next