以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 重复行数据处理 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=184537) |
||
-- 作者:朱女士 -- 发布时间:2022/12/13 10:34:00 -- 重复行数据处理 老师:您好! 此主题相关图片如下:8481fd9bbf3f2bee82a3c8c59eb3184.jpg 上表中,我有4行相同的标识(bs),相同的工序耗时,我想将这4行的重量加起来,取一行的工序耗时,按每一行的重量占总重量的比例,去分劈工序耗时,然后再逐行到实际耗时列中,我的代码就填充了一行。其余三行没填进去。请指教!谢谢!(其实:四行实际耗时:是7.73,7.05,4.09,13.65,表中就填了一个7.73) Dim Nas As New List(Of String) Dim l As Integer For Each bbm As String In DataTables("实时工序计算表").GetValues("bs") l = bbm.Length If l = 18 Then nas.Add(bbm) End if Next Dim j As Integer Dim dzl, gxhs, zzl As Double For Each na As String In Nas Dim m As Integer = DataTables("实时工序计算表").Compute("count(bs)", "bs=\'" & na & "\'") If m > 1 Then zzl = DataTables("实时工序计算表").Compute("sum(重量)", "bs=\'" & na & "\'") End If For j = 1 To m Dim dr As DataRow = DataTables("实时工序计算表").find("bs=\'" & na & "\'") If dr IsNot Nothing Then gxhs = dr("工序耗时") dzl = dr("重量") dr("实际耗时") = dzl * gxhs / zzl End If Next Next |
||
-- 作者:有点蓝 -- 发布时间:2022/12/13 10:42:00 -- 没看懂这个代码逻辑,麻烦解释一下每一行代码的意思 |
||
-- 作者:朱女士 -- 发布时间:2022/12/13 11:23:00 -- 对不起,是我没说清楚! 我先将“实时工序计算表”里的“bs"列的不重复值放在:集合里Dim Nas As New List(Of String)‘定义集合
|
||
-- 作者:有点蓝 -- 发布时间:2022/12/13 11:26:00 -- find改为使用select:http://www.foxtable.com/webhelp/topics/0400.htm |
||
-- 作者:朱女士 -- 发布时间:2022/12/13 11:28:00 -- 可能就是不会定位行,数据算出来了,就是不会定位填入数。 |
||
-- 作者:有点蓝 -- 发布时间:2022/12/13 11:29:00 -- for each dr As DataRow in DataTables("实时工序计算表").select("bs=\'" & na & "\'") gxhs = dr("工序耗时") ’取第一行的工序耗时和重量 dzl = dr("重量") ’当前行的重量dzl,占总重量zzl的比例乘以当前行的工序耗时gxhs等于当前行的实际耗时。 dr("实际耗时") = dzl * gxhs / zzl Next
|