| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 列“_SortKey”的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=184356) |
| -- 作者：jk36 -- 发布时间：2022/12/4 23:08:00 -- 列“_SortKey”的问题 .NET Framework 版本：4.0.30319.42000 Foxtable 版本：2022.8.18.1 错误所在事件：表，仓库管理，DataColChanged 详细错误信息： 调用的目标发生了异常。 列“_SortKey”不属于表 仓库管理。 代码如下，不知哪错了 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("还库数量") - mr("借库数量") - mr("出库数量") mr("入库累计") = mr("入库数量") mr("还库累计") = mr("还库数量") mr("借库累计") = 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)("还库数量") - drs(i)("借库数量") - drs(i)("出库数量") drs(i)("入库累计") = e.DataTable.Compute("sum(入库数量)", "[_SortKey] <= " & drs(i)("_SortKey") & " And [品名] = \'" & dr("品名") & "\'") drs(i)("还库累计") = e.DataTable.Compute("sum(还库数量)", "[_SortKey] <= " & drs(i)("_SortKey") & " And [品名] = \'" & dr("品名") & "\'") drs(i)("借库累计") = e.DataTable.Compute("sum(借库数量)", "[_SortKey] <= " & drs(i)("_SortKey") & " And [品名] = \'" & dr("品名") & "\'") drs(i)("出库累计") = e.DataTable.Compute("sum(出库数量)", "[_SortKey] <= " & drs(i)("_SortKey") & " And [品名] = \'" & dr("品名") & "\'") 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("还库数量") - dr("借库数量") - dr("出库数量") dr("入库累计") = dr("入库数量") dr("还库累计") = dr("还库数量") dr("借库累计") = 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)("入库数量") + drs(i)("还库数量") - drs(i)("借库数量") - drs(i)("出库数量") drs(i)("入库累计") = e.DataTable.Compute("sum(入库数量)", "[_SortKey] <= " & drs(i)("_SortKey") & " And [品名] = \'" & dr("品名") & "\'") drs(i)("还库累计") = e.DataTable.Compute("sum(还库数量)", "[_SortKey] <= " & drs(i)("_SortKey") & " And [品名] = \'" & dr("品名") & "\'") drs(i)("借库累计") = e.DataTable.Compute("sum(借库数量)", "[_SortKey] <= " & drs(i)("_SortKey") & " And [品名] = \'" & dr("品名") & "\'") drs(i)("出库累计") = e.DataTable.Compute("sum(出库数量)", "[_SortKey] <= " & drs(i)("_SortKey") & " And [品名] = \'" & dr("品名") & "\'") Next End If End If End Select [此贴子已经被作者于2022/12/4 23:26:35编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2022/12/4 23:11:00 -- [_SortKey]是插入行标记列，不是每个表都有的：http://www.foxtable.com/webhelp/topics/1791.htm 如果不需要这个列，上面代码也可以改为使用_identify主键列
|
| -- 作者：jk36 -- 发布时间：2022/12/5 9:36:00 -- 呵呵，只要在标志列设置里打勾就ok [此贴子已经被作者于2022/12/5 9:36:53编辑过]
|
| -- 作者：jk36 -- 发布时间：2022/12/5 20:09:00 -- 老师：不知道为什么，现在窗口 中的表动不动就锁定， |
| -- 作者：有点蓝 -- 发布时间：2022/12/5 20:13:00 -- 不会自己锁的，检查代码和相关设置 |