Dim t As Table = Tables("proc97")
Dim v1,v2,v3,v4,f1 As String
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False '分组行不在数据之前
t.TreeVisible = False '显示目录树
t.SpillNode = False '
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "proc_zw" '"*"
'g.TotalOn = "proc_zbsj,proc_jbsj,proc_gshj"
g.Caption = "{0}" '"总计"
t.SubtotalGroups.Add(g)
t.Subtotal()
Dim r1 As Row
For i1 As Integer =0 To t.Rows.Count(True) - 1
r1=t.Rows(i1,True)
If r1.IsGroup Then
f1="proc_zw = '"& r1("proc_zw") &"'" ‘按员工职务分类汇总
r1("proc_bh")=t.Compute("count(proc_bh)",f1)
r1("proc_zbsj")=t.Compute("sum(proc_zbsj)",f1)
r1("proc_jbsj")=t.Compute("sum(proc_jbsj)",f1)
r1("proc_gshj")=t.Compute("sum(proc_gshj)",f1)
End If
Next
我使用以上代码，但输出结果全是0，还请专家指教哪里写的不对？
此主题相关图片如下：出勤.png
[此贴子已经被作者于2019/5/29 10:49:34编辑过]
加好友 
发短信
Post By：2019/5/29 8:40:00 [显示全部帖子]
