每一行代码后都加上MessageBox.Show，测试看哪一个MessageBox.Show之后会出错
表，出入库， 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("入库数量") + 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)("出库数量")
Next
Case "物料编号"
If 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
Else
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)("出库数量")
Next
End If
End If
End Select
加好友 
发短信
Post By：2020/7/16 8:38:00 [显示全部帖子]
