Dim dic_kc As new Dictionary(Of String ,String) '可用库存
Dim dic_aqkc As new Dictionary(Of String ,String) '安全库存
Dim dic_bhxq As new Dictionary(Of String ,String) '补货需求
For Each c2 As Col In Forms("调拨补").Controls("table2").Table.Cols
If c2.Caption.Contains("可用库存_") And c2.Caption.Contains("店仓名称") = False Then
Dim v = c2.Caption.Replace("可用库存_","")
dic_kc.add(v, c2.name)
End If
If c2.Caption.Contains("安全库存_") And c2.Caption.Contains("店仓名称") = False Then
Dim v = c2.Caption.Replace("安全库存_","")
dic_aqkc.add(v, c2.name)
End If
If c2.name.Contains("补货需求_") Then
Dim v = c2.name.Replace("补货需求_","")
dic_bhxq.add(v, c2.name)
End If
Next
For Each r2 As Row In Forms("调拨补").Controls("table2").Table.Rows
For Each key As String In dic_aqkc.Keys
If r2(dic_aqkc(key)) > 0 Then '
r2(dic_bhxq(key)) = r2(dic_aqkc(key)) - r2(dic_kc(key)) '算出的补货需求
End If
Next
Next
[此贴子已经被作者于2017/11/20 10:58:47编辑过]
加好友 
发短信
Post By：2017/11/20 10:40:00 [显示全部帖子]
此主题相关图片如下：微信截图_20171120103558.png
