关于Data Report报表设计器添加页小计功能？

[neihh]

请问DATA REPORT报表设计器能否具有报表每页小计功能，我试过都没有，可否赐教一二？
在此谢了！

[lyhlhr]

Dim HSS As String

HSS = Val(DataReport1.Sections("DT1").Controls("SS1").Caption) + Val(DataReport1.Sections("DT1").Controls("SS2").Caption) + _
Val(DataReport1.Sections("DT1").Controls("SS3").Caption) + Val(DataReport1.Sections("DT1").Controls("SS4").Caption) + _
Val(DataReport1.Sections("DT1").Controls("SS5").Caption) + Val(DataReport1.Sections("DT1").Controls("SS6").Caption) + _
Val(DataReport1.Sections("DT1").Controls("SS7").Caption) + Val(DataReport1.Sections("DT1").Controls("SS8").Caption) + _
Val(DataReport1.Sections("DT1").Controls("SS9").Caption) + Val(DataReport1.Sections("DT1").Controls("SS10").Caption) + _
Val(DataReport1.Sections("DT1").Controls("SS11").Caption) + Val(DataReport1.Sections("DT1").Controls("SS12").Caption) + _
Val(DataReport1.Sections("DT1").Controls("SS13").Caption) + Val(DataReport1.Sections("DT1").Controls("SS14").Caption) + _
Val(DataReport1.Sections("DT1").Controls("SS15").Caption) + Val(DataReport1.Sections("DT1").Controls("SS16").Caption) + _
Val(DataReport1.Sections("DT1").Controls("SS17").Caption) + Val(DataReport1.Sections("DT1").Controls("SS18").Caption) + _
Val(DataReport1.Sections("DT1").Controls("SS19").Caption) + Val(DataReport1.Sections("DT1").Controls("SS20").Caption) + _
Val(DataReport1.Sections("DT1").Controls("SS21").Caption) + Val(DataReport1.Sections("DT1").Controls("SS22").Caption) + _
Val(DataReport1.Sections("DT1").Controls("SS23").Caption) + Val(DataReport1.Sections("DT1").Controls("SS24").Caption) + _
Val(DataReport1.Sections("DT1").Controls("SS25").Caption) + Val(DataReport1.Sections("DT1").Controls("SS26").Caption) + _
Val(DataReport1.Sections("DT1").Controls("SS27").Caption) + Val(DataReport1.Sections("DT1").Controls("SS28").Caption) + _
Val(DataReport1.Sections("DT1").Controls("SS29").Caption) + Val(DataReport1.Sections("DT1").Controls("SS30").Caption)

这只是标签的合计
你还要把数据的值赋给标签
语句如下:
DataReport1.Sections("DT1").Controls("HS1").Caption = Adodc1.Recordset.Fields(1)

[coolice823]

楼上的这种方法可行吗？