Dim b1 As New SQLGroupTableBuilder("统计表2","客户销售汇总表")
b1.C
b1.AddTable("客户销售汇总表","经销商编号","客户档案","业务系统编号")
b1.Groups.AddDef("总公司")
b1.Totals.AddDef("吊牌金额")
b1.Build
Dim f1 As New Filler
f1.SourceTable = DataTables("统计表2")
f1.SourceCols = "吊牌金额"
f1.DataTable = DataTables("会计凭证导入")
f1.DataCols = "贷方金额"
f1.Fill()
Dim Vals1 As List(of String())
Vals1 = DataTables("凭证辅助信息").GetValues("借方科目编码|贷方科目编码")’其中“贷方科目编码”是多值字段
For i As Integer = 0 To Vals1.Count - 1
For Each dr As DataRow In DataTables("会计凭证导入").DataRows
If dr.IsNull("贷方金额") = False Then
dr("科目编码") = Vals1(i)(1) '要求是多值字段“贷方科目编码”的第一个科目即科目1
End If
Next
Next
Dim b2 As New SQLGroupTableBuilder("统计表3","客户销售汇总表")
b2.C
b2.AddTable("客户销售汇总表","经销商编号","客户档案","业务系统编号")
b2.Groups.AddDef("总公司")
b2.Totals.AddDef("吊牌金额")
b2.Totals.AddDef("结算金额")
b2.Totals.AddExp("折扣金额","结算金额 - 吊牌金额")
b2.Build
Dim f2 As New Filler
f2.SourceTable = DataTables("统计表3")
f2.SourceCols = "折扣金额"
f2.DataTable = DataTables("会计凭证导入")
f2.DataCols = "贷方金额"
f2.Fill() '填充数据
Dim Vals2 As List(of String())
Vals2 = DataTables("凭证辅助信息").GetValues("借方科目编码|贷方科目编码") ’其中“贷方科目编码”是多值字段
For i As Integer = 0 To Vals2.Count - 1
For Each dr As DataRow In DataTables("会计凭证导入").DataRows
If dr.IsNull("贷方金额") = False And dr.IsNull("科目编码") = True Then
dr("科目编码") = Vals2(i)(2) ‘要求是多值字段“贷方科目编码”的第二个科目即科目2
End If
Next
Next
加好友 
发短信
Post By：2019/7/23 9:41:00 [显示全部帖子]
