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

sort不会触发上面设置的事件，不同功能对应不同的事件，排序到这些事件处理

排序	BeforeSort	排序数据前执行
排序	AfterSort	排序数据后执行

'用于计算余数

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)

'余数计算结束

上面是放在 aftermoverow 里面的代码，如果要在 aftersort 里面也写入代码，实现 sort 之后余数能够发生变化，上面的代码要怎样修改？谢谢。

sort之后可能所有行的位置都发生了变化，所以需要重置所有列，直接AfterSort事件：

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

Dim nms As New List(Of String)

Dim drs As New List(of DataRow)

With DataTables("出入库")

nms = .GetValues("物料编号")

For Each nm As String In nms '找出每个产品的第一行数据, 添加到集合drs中

drs.Add(.Find("物料编号 = '" & nm & "'", "[_SortKey]"))

For Each dr As DataRow In drs

.DataCols("出入库数量").RaiseDataColChanged(dr)

End With

上面这段代码我放在 afteropenproject 里面，但是执行起来没有效果。请问是为什么呢？谢谢。上述代码来自：http://www.foxtable.com/webhelp/topics/2237.htm

"出入库数量"是表达式列？datacolchanged事件写了什么代码

"出入库数量" 不是表达式。但是 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)("出入库数量")

If drs(i)("出入年月") = drs(i-1)("出入年月") Then

drs(i)("上行余数") = Nothing

Else

drs(i)("上行余数") = drs(i-1)("余数")

End If

end select

这是第一段。

If e.DataCol.name = "出入库数量" Then

e.DataRow.save '必须先保存，后面SQL才能统计到此数据的变化

If user.Group = "仓库" OrElse user.Group = "组装仓库" OrElse user.Group = "仓库(铝巴)" OrElse user.Group = "品质" OrElse user.Group = "品质工程师" OrElse user.name = "开发者"Then

DataTables("物料字典").DataCols("物料编号").RaiseDataColChanged("物料编号 = '" & e.DataRow("物料编号") & "'")

DataTables("出入库单总表").DataCols("出入库单号").RaiseDataColChanged("出入库单号 = '" & e.DataRow("出入库单号") & "'")

End If

这是第二段。

总共就这两段由"出入库数量"触发的代码。这两段代码平时运作都是正常的。

调试，如果下面的msgbox可以弹出，说明代码是执行了的，如果不起作用，要么代码计算逻辑有问题，要么没有加载符合条件的数据

Select Case e.DataCol.Name

Case "出入库数量"

msgbox(1)

'自动计算余数

……

If e.DataCol.name = "出入库数量" Then

msgbox(2)

e.DataRow.save '必须先保存，后面SQL才能统计到此数据的变化

……

设置好之后，再重新登录 foxtalbe 时，1和2都会不断重复地跳出来，说明是执行了的。

主题：计算余数代码问题