共9 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：单条件累计
1楼
denghui69986 发表于：2024/5/6 16:45:00单统计累计，外部数据加载进来用下面内部表代码就弹窗，老师帮忙看看，谢谢
此主题相关图片如下：错误弹窗.png
此主题相关图片如下：错误弹窗.pngSelect 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
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
2楼
有点蓝 发表于：2024/5/6 16:51:00这个表没有[_SortKey]列，勾选添加一个插入行标记列：http://www.foxtable.com/webhelp/topics/1791.htm
3楼
denghui69986 发表于：2024/5/6 17:04:00勾选点确定按键就弹窗
此主题相关图片如下：弹窗.png
此主题相关图片如下：弹窗.png4楼
有点蓝 发表于：2024/5/6 17:07:00这个表的主键是什么？不是_identify？也不是自增列？
5楼
denghui69986 发表于：2024/5/6 17:14:00是自动增加号
此主题相关图片如下：自编号.png
此主题相关图片如下：自编号.png6楼
denghui69986 发表于：2024/5/6 17:19:00加载进来外部数据表刚试了好像都不可以勾选
7楼
有点蓝 发表于：2024/5/6 17:26:00代码里不要使用[_SortKey]列了，改为【id编号】列
8楼
denghui69986 发表于：2024/5/7 7:54:00把所有外部数据表主键改[_SortKey]现在可以了，谢谢
9楼
有点蓝 发表于：2024/5/7 8:32:00主键请使用_identify，不要使用_SortKey。_SortKey是排序用的，用作其它用途可能会有冲突
共9 条记录, 每页显示 10 条, 页签:
[1]