商务合同管理-自动编号和求和 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

哪里名称重复了，换个名称

Dim dr2 As DataRow = e.DataTable.Find("子目号 = '全部'")

If dr2 IsNot Nothing Then

dr2("合计") = e.DataTable.Compute("sum(合计)","子目号 not like '%-%'")

End If

SubString参考：http://www.foxtable.com/webhelp/topics/0240.htm

谢谢版主，我找到了substring语法。

对dr的定义也改了，但是计算的结算不对，

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

版主，运行时出现一个问题：“全部”这个的求和是累计求和，只要改了其中一个数据，这个sum（合计）是会一直增加的，是不是用什么条件给他限制一下，

[此贴子已经被作者于2020/3/20 15:45:39编辑过]

Select Case e.DataCol.Name

Case "工程数量","综合单价"

If e.DataRow.IsNull("工程数量") AndAlso e.DataRow.IsNull("综合单价") Then

Else

e.DataRow("合计") = e.DataRow("工程数量") * e.DataRow("综合单价")

End If

Case "合计"

Dim s As String = e.DataRow("子目号")

Dim idx As Integer = s.LastIndexOf("-")

If idx > -1 Then

Dim s1 As String = s.SubString(0,idx)

Dim dr As DataRow = e.DataTable.Find("子目号 = '" & s1 & "'")

If dr IsNot Nothing Then

dr("合计") = e.DataTable.Compute("sum(合计)","子目号 like '" & s1 & "-%' and 工程数量 is not null and 综合单价 is not null")

End If

ElseIf e.DataRow("子目号") <> "全部"

Dim dr2 As DataRow = e.DataTable.Find("子目号 = '全部'")

If dr2 IsNot Nothing Then

dr2("合计") = e.DataTable.Compute("sum(合计)","子目号 not like '%-%' and 子目号 <> '全部'")

End If

End Select

谢谢版主，这个问题再次解决了

请教一下，这是哪里错了？

表事件

零号清单_DataColChanged

Select Case e.DataCol.Name

Case "工程数量"

Dim s As String = e.DataRow("子目号")

Dim idx As Integer = s.LastIndexOf("-")

If idx > -1 Then

Dim s1 As String = s.SubString(0,idx)

Dim dr As DataRow = e.DataTable.Find("子目号 = '"& s1 &"'")

If dr IsNot Nothing Then

dr("工程数量") = e.DataTable.Compute("sum(工程数量)","子目号 like '" & s1 & "-%'")

End If

Dim dr2 As DataRow = e.DataTable.Find("子目号 = '全部'")

Dim idx1 As Integer = s.LastIndexOf("第")

If idx1 > -1 Then

dr2("工程数量") = e.DataTable.Compute("sum(工程数量)","子目号 not like '%-%'and 子目号 Like '第%' and 子目号 <> '全部'")

End If

Dim dr3 As DataRow = e.DataTable.Find("子目号 = '第100章'")

Dim idx2 As Integer = s.LastIndexOf("1")

If idx2 > -1 Then

dr3("工程数量") = e.DataTable.Compute("sum(工程数量)","子目号 like '1%' And 子目号 not Like '%-%' And 子目号 <> '第100章'")

End If

Dim dr4 As DataRow = e.DataTable.Find("子目号 = '第200章'")

Dim idx3 As Integer = s.LastIndexOf("2")

If idx3 > -1 Then

dr4("工程数量") = e.DataTable.Compute("sum(工程数量)","子目号 like '2%' And 子目号 not Like '%-%' And 子目号 <> '第200章'")

End If

End Select

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

like没有办法区分101-1-a和101-1-a-1.建议加一个级别列，每个级别子目录编个序号，比如101-1-a、101-1-b是3级，101-1-a-1是4级，这样可以根据级别进行统计

辛苦版主了，我不明白要如何增加？可否帮我处理一下，我把文件上传给您？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.foxdb

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3(1).zip

主题：商务合同管理-自动编号和求和