[求助][推荐]关于行的自动计算 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

[求助]

判断表内某列是否有相同值，在下一行添加数据时，数值为某个实际数减去其他相同值的数值和

有列A/B

A为字符列，可以相同；B为数值列

要求，当新增一行后，当填入A列值时，会判断当前表该列是否有其他相同值，如果有，则新增列的B列值为某固定值减去当前表 A列是相同值的 B列和。如没有，则被减数为0.

如 A列本来有两列相同，B列值分别为 50和100. 固定值为 300

当新行的 A列值和上两列匹配上后，则这个新行的 B列值自动填写为 150.

求解答！！！！

如图：固定值为300

AAA	50	首先是自动填写为300，手动改写为50
AAA	100	自动填写为300-50=250，手动改写为100
AAA	150	自动填写为300-50-100=150，无需改动

Select Case e.DataCol.Name
Case "A列"
            If e.NewValue > "" Then
                Dim sum As Integer = e.DataTable.Compute("sum(B列)", "[_Identify] < " & e.DataRow("_Identify"))
                e.DataRow("B列") = 300 - sum
            End If
End Select

以上代码实现不是想要的结果：出现如下

我是第一	50	首先是自动填写为300，手动改写为50
我是另一个	250	这里应该为300，却自动填写为250，A列不一样，却参与了计算.
我是另另外一个	0	这里也应该是300，却填写为0，也是参与了计算

我是第一	50	首先是自动填写为300，手动改写为50
我是另一个	250	这里应该为300，却自动填写为250，A列不一样，却参与了计算.
我是另另外一个	0	这里也应该是300，却填写为0，也是参与了计算

需要实现如下，狐爸

固定值为300

AAA	50	自动填写为300，改写为50
BBB	100	自动填写为300，改写为100
BBB	50	之前BBB有100，所以减去，自动填写为200，手动改写为50
AAA	50	之前AAA有50，自动填写为250，手动改写为50
CCC	300	CCC才开始，所以是300-0，自动填写为300
AAA	200	AAA之前已经有手动填写的100了，所以这里自动填写为200
BBB	150	BBB之前有了150了，所以这里为150
BBB	0	BBB已经没有了，所以自动填写为0

Select Case e.DataCol.Name

Case "A列"

If e.NewValue > "" Then

Dim sum As Integer = e.DataTable.Compute("sum(B列)", "A列 = '" & e.NewValue & "' And [_Identify] < " & e.DataRow("_Identify"))

e.DataRow("B列") = 300 - sum

End If

End Select

主题：[求助][推荐]关于行的自动计算