- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]编译错误问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=148647)
-- 发布时间：2020/4/12 0:56:00
-- [求助]编译错误问题
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 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)("毛需求")
Next
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
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)("毛需求")
Next
End If
End If
End Select
此主题相关图片如下：c2b192ae-8fe0-4a93-83d6-3fb60bd0897b.png
-- 发布时间：2020/4/12 1:55:00
--
初学者常犯的错误,你这代码写在哪个事件里?这个事件没有e参数
-- 发布时间：2020/4/12 9:14:00
-- 偶发性出现，一般会在同时编辑多个项目时。
如题，重启项目，删除bin文件夹,试试
-- 发布时间：2020/4/12 10:58:00
--
http://www.foxtable.com/webhelp/index.htm?page=2136.htm
我是按照这个例子改写的，都是按上面做的，只是改了字段，是因为我这个表是查询表的原因吗？
-- 发布时间：2020/4/12 11:01:00
--
没有什么改善
-- 发布时间：2020/4/12 21:54:00
--
确定代码是放在表格DataColChanged事件的？上传实例看看