- 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=138022)
-- 发布时间：2019/7/20 22:48:00
-- [求助] 数量合理分配
版主，请给看一下，如何将表B中的数量合理分配到表A的第三列中，分到的数量不能大于第二列的数量，没有分配完的数量转到下个相同的产品中，直到分配完。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:数量分配.table |
-- 发布时间：2019/7/21 15:49:00
--
For Each dr As DataRow In DataTables("表B").Select("第一列 > \'\'")
Dim ii,i As Integer
i = val(dr("第二列"))
For Each fdr As DataRow In DataTables("表A").Select("第一列 = \'" & dr("第一列") & "\'","_SortKey")
If i <= val(fdr("第二列"))
fdr("第三列") = i
Exit For
Else
fdr("第三列") = fdr("第二列")
i -= val(fdr("第二列"))
End If
Next
Next