计算余数代码问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.DataCol.Name

Case "出入库数量"

MessageBox.Show(1)

'自动计算余数

Dim dr As DataRow

MessageBox.Show(2)

Dim mr As DataRow = e.DataRow

MessageBox.Show(3)

Dim drs As List(of DataRow)

MessageBox.Show(4)

dr = e.DataTable.Find("[_SortKey] <= #" & mr("_SortKey") & "# And [物料编号] = '" & mr("物料编号") & "'", "_SortKey desc")

If dr Is Nothing OrElse dr("_Identify") = mr("_Identify") Then

mr("余数") = mr("入库数量") + mr("出库数量")

dr = mr

End If

drs = e.DataTable.Select("[_SortKey] >= #" & dr("_SortKey") & "# And [物料编号] = '" & dr("物料编号") & "'", "_SortKey")

For i As Integer = 1 To drs.Count - 1

drs(i)("余数") = drs(i-1)("余数") + drs(i)("入库数量") + drs(i)("出库数量")

MessageBox.Show(5)

If e.DataCol.Name = "物料编号" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then

dr = e.DataTable.Find("[_SortKey] <= #" & mr("_SortKey") & "# And [物料编号] = '" & e.OldValue & "'", "_SortKey desc")

If dr Is Nothing Then

dr = e.DataTable.Find("[物料编号] = '" & e.OldValue & "'", "_SortKey")

If dr IsNot Nothing Then

dr("余数") = dr("入库数量") + dr("出库数量")

End If

If dr IsNot Nothing Then

drs = e.DataTable.Select("[_SortKey] >= #" & dr("_SortKey") & "# And [物料编号] = '" & dr("物料编号") & "'", "_SortKey")

For i As Integer = 1 To drs.Count - 1

drs(i)("余数") = drs(i-1)("余数") + drs(i)("入库数量") + drs(i)("出库数量")

End If

End Select

上述涉及余数计算的代码，如果全部注释掉，就不会出现任何警告。如果把前面4个 Messagebox.show 都注释掉，留下Messagebox.show（5），就只出现如下代码

.NET Framework 版本：4.0.30319.34209

Foxtable 版本：2020.5.29.8

错误所在事件：表，出入库， DataColChanged

详细错误信息：

调用的目标发生了异常。

该字符串未被识别为有效的 DateTime。

如果留下Messagebox.show（4），把Messagebox.show（5）注释掉，就会出现“4” 字。

dr = e.DataTable.Find("[_SortKey] <= " & mr("_SortKey") & " And [物料编号] = '" & mr("物料编号") & "'", "_SortKey desc")

http://www.foxtable.com/webhelp/

我按照上述链接中你们更新后的代码，将涉及 find和select 几个语句的代码都更换了，现在就没有问题了。

我现在有两个问题：

一：“出入库”这个数据表里面 datacolchanged 之下述代码，我在重置“出入库数量”时，余数一列的数据不会发生变化，也就是说，这段代码不起作用

Select Case e.DataCol.Name

Case "出入库数量"

'自动计算余数

Dim dr As DataRow

Dim mr As DataRow = e.DataRow

Dim drs As List(of DataRow)

dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [物料编号] = '" & mr("物料编号") & "'", "[_SortKey] Desc")

If dr Is Nothing OrElse dr("_Identify") = mr("_Identify") Then

mr("余数") = mr("出入库数量")

dr = mr

End If

drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [物料编号] = '" & dr("物料编号") & "'", "[_SortKey]")

For i As Integer = 1 To drs.Count - 1

drs(i)("余数") = drs(i-1)("余数") + drs(i)("出入库数量")

end select

二：“出入库”这个数据表里面 aftermoverow 之下述代码，我对数据重新排序之后，余数一列的数据也不会发生变化，也就是说，这段代码不起作用

Dim Key As Decimal

Dim Index As Integer

Dim Filter As String

Dim r As Row

Index = Math.Min(e.OldIndex, e.NewIndex)

Key = e.Table.Rows(Index)("_SortKey")

r = e.Table.Rows(e.NewIndex)

Filter = "[_SortKey] >= " & Key & " And [物料编号] = '" & r("物料编号") & "'"

e.Table.DataTable.DataCols("出入库数量").RaiseDataColChanged(Filter)

请教上述两个问题是什么原因？谢谢。

1、dr = e.DataTable.Find("[_SortKey] <= " & mr("_SortKey") & " And [物料编号] = '" & mr("物料编号") & "'", "[_SortKey] Desc")

2、请上传实例测试

1. 上述15楼第1点的问题我已经改好了（< 改为 <=）。运行效果没有改善。

2. 请看附页项目，麻烦你帮我看一下。

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

改回14楼的用法即可（< 不需要改为 <=）

我测试没有问题，具体哪一个余数不准？截图说明

可是你试一下对数据重新进行排序，余数一栏就不会跟着变动。

排序是指sort？http://www.foxtable.com/webhelp/topics/0116.htm

还是移动行？移动行我测试没有任何问题，移动前后的行余数肯定变动了，至于其它行，计算结果都一样的，还变什么？

也就是说，移动行后余数是会发生变化的，而排序（sort）后余数是不会发生变化的。

主题：计算余数代码问题