|
Dim g As New SubtotalGroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "进出"
g.TotalOn = "合计"
g.Caption = "{0} 小计"
with Tables("fa piao登记_Table1")
.Fill("Select 进出,fa piao号,客户,开piao日期,币种,金额,合计,说明1 From {fa piao开具} where 开piao日期 >= #" & Vars("起始日期") & "# and 开piao日期 <= #" & Vars("结束日期") & "# and 进出 = '开进'","myacc",true)
.Sort = "开piao日期"
.SubtotalGroups.Clear() '清除原有的分组
.SubtotalGroups.Add(g) '加入刚刚定义的分组
end with
请问上面如何修改，Table没有汇总！
|
加好友 
发短信
Post By：2009/9/10 15:45:00 [只看该作者]
