Dim t As Table = Tables("凭证打印_table1")
't.DefaultRowHeight = 35
Dim b As New GroupTableBuilder("统计表1",DataTables("凭证明细"))
b.Filter = "[凭证ID] = '"& tables("凭证").Current("凭证ID") & "' "
b.Groups.AddDef("会计科目_一级科目") '添加客户列用于分组
b.Groups.AddDef("会计科目_明细科目") '添加客户列用于分组
b.Totals.AddDef("借方金额") '添加数量列用于统计
b.Totals.AddDef("贷方金额") '添加数量列用于统计
t.DataSource = b.BuildDataSource
Dim dt As DataTable = DataTables("凭证打印_Table1")
dt.DataCols("借方金额").SetFormat("0.00")
dt.DataCols("贷方金额").SetFormat("0.00")
dt.dataCols.Add("摘要",Gettype(String),240)
Dim b1 As New GroupTableBuilder("统计表1",DataTables("凭证明细"))
b1.Filter = "[凭证ID] = '"& tables("凭证").Current("凭证ID") & "' "
b1.Groups.AddDef("会计科目_一级科目") '添加客户列用于分组
b1.Groups.AddDef("会计科目_明细科目") '添加客户列用于分组
b1.Groups.AddDef("摘要") '添加客户列用于分组
Dim dt1 As DataTable = b1.Build(True)
t.Sort = " 借方金额 DESC"
For Each dr1 As DataRow In dt1.DataRows '遍历只显示摘要的表 dt1 的所有行
For Each dr3 As DataRow In dt.DataRows '遍历统计表dt的所有行
If dr3.IsNull("会计科目_明细科目") Then
Dim dr2 As DataRow = dt1.Find("[会计科目_一级科目] = '"& dr3("会计科目_一级科目") & "' ")
dr3("摘要") = dr2("摘要")
Else
Dim dr2 As DataRow = dt1.Find("[会计科目_一级科目] = '"& dr3("会计科目_一级科目") & "' and [会计科目_明细科目] = '"& dr3("会计科目_明细科目") & "'")
dr3("摘要") = dr2("摘要")
End If
Next
Next
t.SetColVisibleWidth("摘要|240|会计科目_一级科目|110|会计科目_明细科目|120|借方金额|120|贷方金额|120")
加好友 
发短信
Post By：2019/4/12 21:54:00 [只看该作者]
此主题相关图片如下：凭证打印错误提示.png