Dim g2 As New GroupTableBuilder("统计表2",DataTables("明细表"))
g2.Groups.AddDef("序号")
g2.Groups.AddDef("姓名")
g2.Groups.AddDef("期初日期")
g2.Totals.AddDef("金额")
g2.Filter = "期初日期 > #" & d & "#"
g2.Build()
For Each r10 As Row In Tables("统计表2")
Dim r20 As DataRow = DataTables("总表").find("序号 = '" & r10("序号") & "'")
If r20("对应") = "个人" AndAlso r20("余额") > 0 Then
If n < 21 Then
ws.cells(5+n,4).value = r10("期初日期")
ws.cells(5+n,3).value = r10("姓名")
ws.cells(5+n,5).value = r10("金额")
Else
ws.cells(n-16,13).value = r10("期初日期")
ws.cells(n-16,12).value = r10("姓名")
ws.cells(n-16,14).value = r10("金额")
End If
n = n + 1
End If
Next
DataTables("统计表2").DataRows.Clear