用窗口表试试:
Dim n,s1,s2,s3,s4 As Double
Dim sql As String
Dim t = Tables("窗口1_Table1")
Dim r As Row
sql = "select * from(select Len(起号) & Left(起号,1) as 序号,起号,止号,张数 as 全部单证张数,iif(单证状态 ='售单',张数,null) as 售单张数,iif(单证状态 In('退单','废单'),张数,null) as 退废单张数,iif(单证状态 ='售单',保费,null) as 售单金额 from{表A} where 起号 >'' ) order by 序号 ,起号"
t.Fill(sql,True)
For n = 0 To T.Rows.count-1
If n = 0 Then
T.Rows(n)("序号") =T.Rows(n)("序号") & "-0"
ElseIf Val(T.Rows(n)("起号")) = Val(T.Rows(n-1)("止号"))+1 Then
T.Rows(n)("序号") =T.Rows(n-1)("序号")
Else
T.Rows(n)("序号") =T.Rows(n)("序号") & "-" & n
End If
Next
Dim b As New GroupTableBuilder("统计表1",DataTables("窗口1_Table1"))
b.Groups.AddDef("序号")
b.Totals.AddDef("起号",AggregateEnum.Min)
b.Totals.AddDef("止号",AggregateEnum.Max)
b.Totals.AddDef("全部单证张数")
b.Totals.AddDef("售单张数")
b.Totals.AddDef("退废单张数")
b.Totals.AddDef("售单金额")
t.DataSource = b.BuildDataSource()
n =0
For Each r In t.Rows
r("序号") = n+1
If r("退废单张数") = 0 Then
r("退废单张数") =Nothing
End If
s1+=r("全部单证张数")
s2+ = r("售单张数")
s3+= r("退废单张数")
s4+ = r("售单金额")
n+ = 1
Next
r=t.addnew
r("序号") = "合计"
r("全部单证张数") = s1
r("售单张数") = s2
r("退废单张数") = s3
r("售单金额") = s4
t.AutoSizeCols
加好友 
发短信
Post By：2011/8/3 15:08:00 [只看该作者]
此主题相关图片如下：未命名.jpg
此主题相关图片如下：000.gif