老师，我把代码改了下，汇总的结果如图2，编码02020687 在途数量：2100，分配到配件需求明细_明细查询窗口表中，这个编码优先顺序5的挂标数量应该为：196，但是实际分配出来的数据确为469了，优先顺序6的挂标数量应该为：0，但是实际分配出来的数据确为384了.请帮忙看看，谢谢
If Forms("配件需求明细").Opened Then
For Each r As Row In Tables("配件需求明细_明细查询").GetCheckedRows
Dim dr As DataRow = DataTables("欠料需求表_需求表").Find("材料编码='" & r("材料编码") & "'")
If dr IsNot Nothing Then
If r("优先顺序") = "1" Then '优先顺序为1时
If dr("在途数量") >= r("未发数量") Then
r("挂标数量") = r("未发数量") '如库存表中的可用数量大于配件需求明细中的未发数量，挂标数量为未发数量
ElseIf dr("在途数量") <= 0 Then
r("挂标数量") = 0 '如可用数量小于不等于0，挂标数量等于可用数量
End If
Else
Dim dr2 As DataRow = DataTables("配件需求明细_明细查询").find("材料编码='" & r("材料编码") & "' and 优先顺序='" & Val(r("优先顺序") - 1) & "'") '查找上一个优先顺序
If dr2 IsNot Nothing Then
If (dr("在途数量") - dr2("挂标数量")) > 0 And (dr("在途数量") - dr2("挂标数量")) >= r("未发数量") Then '如可用数量-优先顺序为1里的挂标数量大于优先顺序2中的未发数量
r("挂标数量") = r("未发数量") '该挂标数量为可用数量-优先顺序为1里的挂标数量
ElseIf (dr("在途数量") - dr2("挂标数量")) > 0 And (dr("在途数量") - dr2("挂标数量")) < r("未发数量") Then '如结果小于不等于0
r("挂标数量") = dr("在途数量") - dr2("挂标数量") '挂标数量等于该相减的结果
ElseIf (dr("在途数量") - dr2("挂标数量")) <= 0 And r("未发数量") > 0 Then '如结果小于不等于0
r("挂标数量") = 0 '挂标数量等于该相减的结果
End If
End If
End If
End If
Next
End If
此主题相关图片如下：2.png
加好友 
发短信
Post By：2024/5/26 11:47:00 [显示全部帖子]
