从“级码”中提取“单位编码” - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

测试没有问题啊，不勾选的确实没有显示到目录树里

此主题相关图片如下：1.png

老师，我这样写的对吗

测试有什么问题咯，没有问题不就对的嘛

'统计表1：

Dim dtb As New DataTableBuilder("统计1")

dtb.AddDef("科目代码", GetType(String), 16)

dtb.AddDef("科目名称", GetType(String), 16)

dtb.AddDef("借方金额累计", GetType(Double))

dtb.AddDef("贷方金额累计", GetType(Double))

dtb.Build()

For Each nm() As String In DataTables("凭证明细").GetValues("科目代码|科目名称")

Dim dr As DataRow = DataTables("统计1").AddNew()

dr("科目代码") = nm(0)

dr("科目名称") = nm(1)

dr("借方金额累计") = DataTables("凭证明细").Compute("Sum(借方金额)", "科目代码 = '" & nm(0) & "' And [科目名称] = '" & nm(1) & "'")

dr("贷方金额累计") = DataTables("凭证明细").Compute("Sum(贷方金额)", "科目代码 = '" & nm(0) & "' And [科目名称] = '" & nm(1) & "'")

MainTable = Tables("统计1")

蓝老师，我想在上述统计表1代码基础上新增2列，年份和月份，年份和月份是从表中“日期”列提取，然后数据进行汇总填入“借方金额累计”和“贷方金额累计”

'统计表2

Dim dtb As New DataTableBuilder("统计2")

dtb.AddDef("科目代码", GetType(String), 16)

dtb.AddDef("科目名称", GetType(String), 16)

dtb.AddDef("年份", GetType(String), 16)

dtb.AddDef("月份", GetType(String), 16)

dtb.AddDef("借方金额累计", GetType(Double))

dtb.AddDef("贷方金额累计", GetType(Double))

dtb.Build()

For Each nm() As String In DataTables("凭证明细").GetValues("科目代码|科目名称|年份|月份")

Dim dr As DataRow = DataTables("统计2").AddNew()

dr("科目代码") = nm(0)

dr("科目名称") = nm(1)

dr("年份") = nm(2) '这里为"日期"提取的"年份"

dr("月份") = nm(3) '这里为"日期"的"月份"

dr("借方金额累计") = DataTables("凭证明细").Compute("Sum(借方金额)", "科目代码 = '" & nm(0) & "' And [科目名称] = '" & nm(1) & "'")

dr("贷方金额累计") = DataTables("凭证明细").Compute("Sum(贷方金额)", "科目代码 = '" & nm(0) & "' And [科目名称] = '" & nm(1) & "'")

MainTable = Tables("统计2")

请老师，修改一行代码

dr("借方金额累计") = DataTables("凭证明细").Compute("Sum(借方金额)", "科目代码 = '" & nm(0) & "' And [科目名称] = '" & nm(1) & "' and 年份='" & nm(2) & "' and 月份='" & nm(3) & "'")

蓝老师，这里年份和月份不存在，表中只有日期列，这里用代码怎么表达，或计算出年份和月份

For Each nm() As String In DataTables("凭证明细").GetValues("科目代码|科目名称|日期")

Dim dr As DataRow = DataTables("统计2").AddNew()

dr("科目代码") = nm(0)

dr("科目名称") = nm(1)

dr("年份") = left(nm(2),4)'这里为"日期"提取的"年份"

dr("月份") = right(left(nm(2),7),2) '这里为"日期"的"月份"

dr("借方金额累计") = DataTables("凭证明细").Compute("Sum(借方金额)", "科目代码 = '" & nm(0) & "' And [科目名称] = '" & nm(1) & "' and 日期=#" & nm(2) & "#")

Dim dt As New DataTableBuilder("统计021")

dt.AddDef("科目代码", GetType(String), 16)

dt.AddDef("科目名称", GetType(String), 16)

dt.AddDef("年份", GetType(String), 16)

dt.AddDef("月份", GetType(String), 16)

dt.AddDef("借方金额累计", GetType(Double))

dt.AddDef("贷方金额累计", GetType(Double))

dt.Build()

For Each nm() As String In DataTables("示意图2311").GetValues("科目代码|科目名称|日期")

Dim dr As DataRow = DataTables("统计021").AddNew()

dr("科目代码") = nm(0)

dr("科目名称") = nm(1)

dr("年份") = left(nm(2), 4) '这里的"年份"从"日期"中提取

dr("月份") = right(left(nm(2), 7), 2) '这里的"月份"从"日期"中提取

dr("借方金额累计") = DataTables("示意图2311").Compute("Sum(借方金额)", "科目代码 = '" & nm(0) & "' And [科目名称] = '" & nm(1) & "' and 日期 = #" & nm(2) & "#")

dr("贷方金额累计") = DataTables("示意图2311").Compute("Sum(贷方金额)", "科目代码 = '" & nm(0) & "' And [科目名称] = '" & nm(1) & "' and 日期 = #" & nm(2) & "#")

MainTable = Tables("统计021")

蓝老师，上述红色代码还是有问题，相同月份的数据没有合并？

http://www.foxtable.com/webhelp/topics/2720.htm

dim d as date = cdate(dr("年份") & "-" & dr("月份") & "-01")

dr("借方金额累计") = DataTables("示意图2311").Compute("Sum(借方金额)", "科目代码 = '" & nm(0) & "' And [科目名称] = '" & nm(1) & "' and 日期 >= #" & d & "# and 日期 < #" & d.addmonths(1) & "#")

蓝老师，现在是金额是合并了，可是一个月有多条数据都是这个合并数

主题：从“级码”中提取“单位编码”